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ATARI EVOLUTION 


News and Reviews 
by Mike Dunn, Co-Editor 

ACE is now in its sixth year of publication, and | am still one of the 
Editors! Remarkable for a non-profit club working only on slave labor with 
no payroll at all. All of our money comes from your yearly dues and the 
“profit” from our program libary sales. With the recent steep decline in 
diskette prices, | am happy to announce that now all disks will cost only 
$10 for two, with a volume on each side of the disk. Any drive can use 
these double sided disks; just turn it over to read the other side. 

We have a number of new disks this month, including the newest 
Best of ACE disks, featuring the programs from the Newsletter since the 
last Best of ACE disk, and some great ones from other clubs around the 
world. 

Adelaide ACE (Australia) Symbolic Dissassembler not only 
dissassembles programs but attaches the proper Atari Lablel on it — a 
wonderful tool for advanced machine language programmers. 

Atari Addicts Graphic Dump takes pictures in just about any format 
such as Micropainter, Koala Pad, Paint, etc and makes a very nice, quick 
dump on an Epson, Gemini 10X, Nec or Prowriter printer. These are large, 
sideways pictures. 

Atari Addicts Machine Language Games is a collection of fast arcade 
like games in the public domain. 

High Sierra Print Shop Utilities and Print Shop Pictures (Double Sided 
disk $10). Several useful Print Shop utilites, including a complete calender 
which is very nice, and on side 2, many new print shop graphics. 

Remember, only $10 for two disk sides. For those of you who have 
not ordered Essential ACE #1 ($10 for 2 sides), it is a very nice utility 
disk, with 12 pages of documentation and is highly recommended. See 
last issue for details. 

For other Atari Clubs: We are always happy to trade our disks for 
yours, as long as they are public domain. So if you develop new disks, 
let us know, or send it to us and let us know what you want. 

The big club news this month is our Bulletin Board System. We now 
have the 10 Meg Hard disk working, as well as the Charles Andrews 320K 
modified 130XE. The new Sysop is Ralph Walden, author of ACE-C and 
his new DVC/65. He and Richard Renner, the author of PDM/L, our new 
bulletin board program, are working together to develop the most 
powerful and quickest one available — try it, you will be impressed! 


NEW SYSOP 


The BBS has a new SYSOP, Ralph Walden. Many thanks go to Larry 
Gold for his 2% years of running the board. We're now using a Supra 
10mB hard disk, a US Robotics Courier 2400 modem, and 2 double 
density ramdisks on a 576K XL computer by Charlie Andrews. We can 
handle both 300 and 1200 baud. By using Sparta DOS (a wonderful DOS 
system, by the way), we have download files spread thoughout 9 
subdirectories. If you're an ACE member, once your password file is 
verified you will be able to download all the programs in the newsletter 
about a week after they appear (can save a lot of typing!). The BBS 
program itself is written in assembly language by Rich Renner. The 
assembly language combined with the speed of a hard disk makes for 
a very fast system. You will find very little delay between entering a 
command, and the command taking effect. If you haven't logged on in 
awhile, give us a call at (503)343-4352. 


CONSUMER ALERT 


Michael Wheeler, 1003 Timm Dr., College Station, TX 77840, warns 
that he was advised by a retailer to purchase a TELESYS Turboprint/A 
printer interface for his Atari 800 XL and Olympia Compact 2 printer. 
He was not able to get the Telesys interface to work in this system, and 
Michael provides documentation from Gary Furr (designer of the 
AtariWriter printer drivers) which confirms his experience. As of Jan. 1, 
1986, Michael Wheeler has yet to receive any satisfaction from Telesys 
Computer Peripheral Products, 43334 Bryant St., Fremont, CA 94539. 
If you've experienced a similar problem with this product, you might want 
to contact Michael to find out if his situation has changed. He seems 
to be writing to Better Business Bureaus and to user groups and retailers 
all around the country. 

If anyone.has had success with this interface, please let us know. 
Perhaps the information can help. 
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LOVE 


| LOVE MY PANASONIC PRINTER WITH GARY FURR'S CUSTOM 
DRIVER! Quality, Class, the Right Stuff, whatever you call it, it's hard 
to define and even harder to find. Mozart's music has it, and so do 
minutes-old steamed sweet corn, Greek art of the golden age, traditional 
Japanese packaging, and Belgian chocolate. My original Atari, an 800XL, 
does not have it but the used Atari 800 | bought (for half as much) to 
replace it has a lot of class. So do my Indus disk drive and Commodore(!) 
color monitor. Why tell you this? Because | want to tip you off to two 
recent products which also have Class. Quality counts and life is too 
short to waste on hassles with second-rate gear. The two products are 
my new Panasonic 1091 printer, and Gary Furr's Printer-Driver for 
Atariwriter. The Panasonic printer, like many newer printers, has just 
about all the bells and whistles: 120 cps in draft mode; 1K buffer; tractor 
and friction feeds for single sheets and fanfold paper; from 40 to 137 
characters/line; re-definable characters (up to 40) if Roman, Italic, 
International, IBM block graphics and PC special graphics aren't enough; 
7 bit-image modes, from 60 to 240 dots/inch horizontally, with 72/in. 
normal for vertical spacing (you can have vertical spacing as fine as 
216/inch); Hex dump; self-test; you name it, it’s probably somewhere 
inside (except for proportional printing, which apparently was a feature 
of earlier versions of this model, but not on mine). But the real treasure 
is the near-letter-quality (NLQ) mode, with 18x18 dots per character 
instead of the usual 9x9. Sure, it’s much slower than draft mode, at 29 
cps, but the results are almost beyond belief! It makes my old electric 
portable typewriter look sick. Oh, yes, the manual: Outstanding, with 
details for each operation and sample BASIC demo programs for most 
modes. With maybe 100 pages, it’s quite complete; the only thing | miss 
is a list of commands in sequence by code/ASCII number. For less than 
$250, discounted, this nimble, versatile and well built printer is a super 
addition to my Atari-Indus-Commodore. But the printer is so versatile, 
with 63 primary instruction codes and numerous secondary codes for 
things like spacing vertical and horizontal tabs, that it can be hard to 
make good use of it all. Specia!ly for word processing, where you want 
to think about ideas and facts, noi formats, punctuation or margins. Of 
the half-dozen word processors in my kit, AtariWriter is the all-around 
favorite for day-to-day use. It's a handy cartridge — no need to search 
thru 150 disks to find it — and is versatile yet easy to use. It can load, 
display, edit, save and print not only records and files, but LISTed BASIC, 
C and A.L. source code. | can use it to move binary files from one disk 
to another, and to print out disk directories when I warit to purge old 
files. But AtariWriter has its limits, like the 40-character screen width, 
and its set of instructions for Atari printers, only. You need a printer driver 
to let Atariwriter 'talk' to your non-Atari printer. APX sold these, but APX 
had joined the snows of yesteryear by the time | bought my printer. Too 
bad.... Good news, troops: Gary Furr, who designed AtariWriter, and 
wrote the APX Printer Driver, has made his custom printer drivers 
available again. Full blown versions, which marry up any one of more 
than 100 different printers to AtariWriter. Dot matrix, ink jet or daisy 
wheel paper gobblers, all can use the full set of controls just as they 
appear in the AtariWriter manual, and then some. For instance, with an 
Atari printer AtariWriter gives you a choice of four print fonts; with my 
Panasonic | have seven, and would have eight if my machine had 
proportional printing. For once, there seem to be no nasty surprises. 
Imagine! Margins work as they're supposed to, so do underlining, 
expanded or compressed printing, super- and sub-scripts, justified left 
and right margins — without word wraparound, naturally — and so on. 
Everything | tried seems to work, which was not true for my other printer 
drivers. But then the old ones’ AUTORUN.SYS files ran some 4 disk 
sectors in length, and Furr's is 14; it does much more. Furr knows 
Atariwriter better than anyone else, and it shows. For $10 — can you 
believe it? — you get a disk with THE printer driver for your very own 
machine. Plus 30 pages of information on setup, booting, theory, - 
operating and customizing, suggestions on using Atariwriter for mailing 
lists, labels, templates and other things | never thought of, plus answers 
to the most common questions which Furr gets from users. Like the 
famous Atari 1027 printer's 255-second 'time out'(a bug in the printer 
ROM which the Driver patches). Und fuer Sie, pour Vous, para Ustedes, 
per Voi, Furr has written German, French, Spanish and Italian versions 
of Atariwriter, making use — at last — of the international character set 
in the XL ROM and in many printers. Sad to say, Atari has not bothered 
to release these two-year old products, probably because they still think 
the 8-bit computers are 'game machines' and not a market for serious 
stuff. So if you want your Atari to write in your own language, be sure 
to write (in English, | should think) to Atari, with copies to Furr, to 
generate some action. For the Printer Driver, send $10 US currency ($15 
if you live further away than Canada or Mexico — sorry about that!) to: 

Gary Furr 

P. O. Box 1330 

Mountain View 

California USA 94042-1330 

Ciao! 

— Dick Barkley 
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VP RAMBLINGS 


Things have changed around our little bit of Atariland, | am no longer 
the Sysop of the BBS. The new Sysop is Ralph Walden. | think he will 
make a great Sysop for not only does he understand the BBS, but he 
knows how to fix it when something goes wrong. You who use the BBS 
will find many changes as there are more sections which in turn have 
sub-directories. The main thing to remember is that once you have logged 
on and have had your password validated you then have access to all 
parts of the BBS. 

To log on to the BBS for those who have not done so or those who 
have not used the BBS in a long time it is quite simple. First call the board 
and when you you come to the place where it asks you for a password 
hit return and answer the questions giving your name, phone number, 
and any four (4) letter password you want to make up. Please don’t use 
dirty words as they will be deleated and you will lose access to the board. 
After giving the necessary information the board will ask you if it is 
correct or if you want to make changes. If no changes are made the "Y" 
command will get you on the board. You will have a low level access 
and won't be allowed everything, but you will be able to look around and 
see most things. Sometime later you access level will be increased to 
have full access. 

The number of the BBS is still the same (503) 343-4352 and if you 
want the Sysop his number is (503) 345-0462. 

Try the new board and see what you think. | feel that we at ACE 
will have one of the best BBS's in the country. 

As you well know the 8 bit Ataris are one of the best home 
computers one can own and there seem to be more and more programs 
coming into the marketplace taking advantage of the increased memory 
of the new machines. This does not mean the older computers can’t use 
the programs. What it does mean is the software houses have not 
forgotten you and are bringing out more and more programs for you to 
use. Another great thing has happend and that is the price of computers, 
programs and related equipment has come way down. You can now own 
more than one computer, taking the load off the one computer and 
allowing several members of the family to use them at the same time. 
This is great for families with more then one high-school age child when 
they need to use it for reports etc. The same goes for dad when he wants 
to use it when the kids have taken over. In fact one can say every member 
of the family has more of a chance to use the computer when there is 
more than one available. This is not just because there are more 
computers, but because when more people have a chance to use them 
they want to do more things. Since there is such an abundance of good 
programs available to the user, each user can have the programs to fit 
their needs. | think this helps everyone and in turn helps the computer 
industry also. 

— Larry Gold 


DVC/65 RUMORS 


I have been both amused and amazed by the rumors | have heard 
about DVC/65. Certainly the most misleading was last month's article 
by Dale Lutz in which he referred to a 130XE-C. There is no such product. 
DVC will work on any 8 bit Atari with a minimum of 48K and a disk drive. 
There will be a version someday "REAL SOON NOW” for Sparta DOS 
2 and 3 which requires an XL or XE. It is true that | am developing DVC 
for the ST. The release date is unkown. | got set back two months waiting 
for a certain computer company in Portland to tell me they couldn't 
upgrade my ST to 1 meg, and return it to me. 

DVC is NOT public domain. It is freeware which means you can copy 
the programs on the disk, but it's a federal offense to copy the 
documentation (it's copyrighted). A certain party is distributing a pirated 
disk of the documentation. Since I must still generate an income outside 
the computer field, those lost sales will directly affect how soon and 
even whether I get a version running on the ST. 

DVC stands for DeVelopment Compiler. Interestingly, the needs of 
a software developer and someone just learning the language are the 
same. Both need to correct bugs as quickly and easily as possible. DVC 
does this by providing an extremely fast compiler and linker, and by 
making the compiler and editor interactive. If the compiler finds a bug, 
it reloads the editor and lists the line with the error. Once corrected, a 
single keystroke will start the compilation process again. So far, DVC 
compiles and links 6 times faster than anything on the ST, and 3 times 
faster than the best on an IBM. 

To order, send $35 to Ralph E. Walden, 1821 Jefferson, Eugene, OR 
97402 specifying if you want single or double density. Includes a 64 
page manual, and about 150K (64 files) of programs/files. 

— Ralph Walden 


WILKINSON 


First, regarding the little squip on Walden's C and the benchmark 
program on page 11: Does it surprise anyone to learn that ACTION!'s 
performance is just a tad faster than anything he listed? How about 
125,086 repetitions? That's "only" 25 times faster than DVC/66. (Puzzle 
for your readers: Why is REP2 always greater than or equal to REP1 for 
all but the slowest languages? Answer on request.) 

Still, for a P-code type language, Walden's C is fairly impressive. Nice 
features, nice price. | am recommending it to many people. 

On the other hand, | have to take severe exception to the comment 
at the end of Dale Lutz's Oranges article on page 4, where someone 
commented: ”. . . [Walden's C is better than any available for the IBM- 
PC.” Sorry, but tain't so, unless you mean solely on the basis of price. . . . 

Kyan Pascal for the XL/XE computers.... [is] the first full 
"standard" language for the 8-bit machines. It has some holes you can 
drive a disk through, it definitely needs help in the libraries department, 
it lacks string support now considered essential (even though neither 
ANSI nor ISO require it), but it works. 

Now that l've plugged the competition, let me mention Personal 
Pascal for the ST, from — fanfare please — OSS. After you've learned 
Walden's C or ACTION! or Kyan Pascal on your 8-bit machine, and after 
you've bought your ST and can't figure out what to do with it, come 
look at Personal Pascal. It's a very, very solid compiler (I think this means 
the bugs are well hidden). It's a reasonably fast system to use (an order 
of magnitude better than using Atari and DRI's C compiler). It's got a 
darned good GEM support library. (I know. I’ve spent the last month 
documenting it!) At last you will be able to use windows, dialog boxes, 
menu bars, etc., without reading 1500 pages of GEM documentation 
which was intended for the IBM PC and only vaguely relates to the ST. 
When you consider the plain vanilla Kyan Pascal on the XL/XE is $69, 
| think our $89 ST product is a bargain. 

Finally, some more comments on the Oranges article. (1) Keywords 
in C must be lower case, but if this is offensive you can use define to 
establish a set of upper case equivalents. Personally, | use the following 
set of defines most of the time: 

#define IF if ( 

#define THEN ) $( 

#define ELSE $) else $( 

#define ENDIF $) 

Makes for neat, readable code such as this: IF a=b THEN c=a ELSE 
c=b ENDIF ;(Shades of ACTION!!!) 

(2) The clumsiness of Forth editing is not inherent in the language 
definition. Only in the insanely stupid system definition of Fig-Forth. 
There are good Forths out there which do things “right”. They use file 
names instead of screen numbers. They allow one to edit source of any 
arbitrary size. They work properly within the host system's OS and DOS, 
etc., etc. | think the Forth Interest Group, by clinging to system models 
which are ten or more years old (eg., “16k memory is too much"), has 
done much morre to hinder the development of Forth as a serious 
software tool than they have ever accomplished in "spreading the 
gospel". Forth is not a bad language. But it could be a lot better with 
just a little work! 

Enough. It's fun to rant and rave once in a while. 

P.S.: If you want, soon I'll be able to give you the Personal Pascal 


repetition count for that benchmark. | expect it to be good. 
— Bill Wilkinson 


ATARI GT 


The January, 1986 newsletter of the Queensland (Australia) ACE 
contains a benchmark test by Mark Walker in which the 8-bit Atari beat 
the Apple Il, C-64, CoCo, and Sega computers. It even came in close 
behind the Microbee and Amstrad computers. He cheated a little bit. He 
replaced his A.L.U. chip with Newell Industry's "FastChip" (available in 
the States for $19.95). Here's the nasty benchmark: 


10 FOR X=1 TO 100 50 D=LOG(X) 
20 A=SIN(X) 60 E=SQR(X) 
30 B=COS(X) 70 F=A+B-C*D/E 
40 C=X+2 8C NEXT X 


Here are the results he obtained: Microbee 8 sec; Amstrad 8.1 sec; 
Atari 10.3 sec; Apple Il 18.7; C-64 20.4; CoCo 22.6; Sega 95.6. Without 
the FastChip installed, the Atari time is 19.4 sec. Still pretty respectable. 


HIDE & FIND MACHINE CODE 


(reprinted from the January, 1984 issue of Capitol District ACE) 
Here are some examples of how to hide machine language 

subroutines so they don't get run over by BASIC. For illustration we'll use 
a short routine which does nothing more than change the background 
color of the border on the screen. The listing shows the assembler 
mnemonics, the assembld hexadecimal code and the decimal code used 
to POKE the routine into memory from BASIC. 

DEC HEX CODE REMARKS 

104 68 PLA ; pull count of number of variables passed off the stack 

104 68 PLA ; pull hi byte of variable passed from stack & load into 
the accumulator 

104 68 PLA ; pull lo byte of variable passed and load it into the 
accumulator for use 

141 8D STA $02C8 ;store the accumulator into the background color 
register O2C8 hex = 712 dec 

200 C8; lo byte of address 

002 02; hi byte of address 

96 60 RTS ; return to BASIC 

The first PLA command is absolutely necessary since it pulls off 
a byte from the stack which is always generated by the USR function 
in BASIC. Use of this byte is optional, but it must always be pulled off 
first before going on with the routine. The second two bytes reflect a 
number passed by the USR function to the machine language routine. 
It is always stored in the stack in hi byte - lo byte order. This is the order 
in which we must pull it off so we use two more PLA commands. Now, 
since the border color register, $02C8, will only use a number between 
1 and 128 decimal ($00-$FF hex), we don't need the hi byte so we throw 
it away. The low byte is POKEd into the register and, like magic, the border 
color changes. The RTS command returns control back to BASIC. 

One method for hiding this routine is by POKEing the decimal value 
from BASIC into an area reserved by a DIMensioned array: 

100 REM *THE PROGRAM* 

105 REM 

110 CLR :DIM ES(1,E(7) 

120 RESTORE 130:FOR I=1 TO 7:READ A:POKE ADR(ES) -L A:NEXT 


130 DATA 104,104,104,141,200,2,96 

150 ? "Enter a background color" ;:INPUT C 
160 DUMMY=USR(ADR(E$) +1,C):? PEEK(712) 
170 GOTO 150 

Since BASIC will reserve space in memory for strings and arrays 
in the same order in which they are DIMensioned, we are able to use 
an empty string, E$, as a marker to find the address of the array E(n) 
where we will hide the machine language code. This is performed in lines 
120-130. Notice the DATA in line 130 are the decimal value listed in the 
table. Line 150 asks for a number between O and 128. Line 160 takes 
this number, passes it to the machine language routine through the 
variable C, executes the machine language routine which we POKEd into 
the memory location of (E$)+1, and returns control back to BASIC. 

A second way to hide the ML routine is to put it directly into a BASIC 
string: 

100 REM *USR DEMO* 

110 CLR :DIM E$(7) 

120 REM RESTORE 130:FOR I=O TO 4:READ A:POKE 
ADR(ES) I, A:NEXT I 

130 REM E$=104,104,104,141,200,2,96 

140 E$="hhh INV CTRL M INV H CTRL B CTRL ” 

150 ? “Enter a background color’’;:INPUT C 

160 DUMMY=USR(ADR(E$)+1,C):? PEEK(712) 

170 GOTO 150 

This entails a bit more work as one must now take the decimal 
values shown above and convert them to the ASCII equivalent. These 
are placed in order and equated to a string (Line 140). Less memory is 
used since there is no longer an extensive DATA listing and the code is 
placed into memory instantaneously. The former POKE method is very 
time consuming when there is any amount of code to POKE. 

There you have two tricks for adequately protecting machine 
language code. These are both very easy (once understood) and are 
designed to take up a minimum of memory. The only other thing to 
remember is that to use either, the machine language code must be 
relocatable. That is, there can be no jumps to specific machine language 
locations other than operating system protected ones. But that's another 
column. 

— Paul A. Amodeo 


PROGRAM COMPARER 


(reprinted from the October, 1983 issue of CONTACT) 

This program is a utility for disk owners who write programs in 
BASIC. Sometimes you take out the old program, make some changes, 
and then put it away. Later, you may not be sure what differences, if 
any, exist between the two versions of the program. This program is 
designed to find the differences and print them for you. 

The program will work with or without a printer. If you don't tell 
it you have a printer, it prints the changes to the screen. then, using 
CTRL-1 to stop the scrolling, you can write down the line numbers which 
have changed. 

This program will only work with disk based programs. It is set up 
to read two programs from disk simultaneously, which cannot be done 
with the cassette device. Your programs must both be on the SAME disk, 
unless you have two disk drives. In addition, the programs must be LISTed 
to disk, not SAVEd. Otherwise, the program will not figure out anything 
meaningful on the screen!! 

For those of you without printers, this utility can be very helpful. 
Even if you have a printer, it is easier to use this utility than it is to peruse 
very long BASIC program listings. It should be possible to use this 
program to compare assembly language source files which are produced 
by the Atari cartridge, OSS EASMD, and the untokenized source files 
produced by MAC/65 and Synassembler. You may come of with other 
uses for this program, too — give it a try! 

— Rick Groskiewicz 


USR & ADR COMMANDS 


(reprinted from the December, 1983 issue of SBACE) 

Below is a BASIC program which does nothing more than add 416 
to 708. We hope the answer will be 1124. This program illustrates the 
use of the USR function and the ADR function. The ADR function returns 
the address in memory of the first byte of the string variable indicated. 
The USR function lets you jump into an assembly language program from 
BASIC. 

10 DIM A$(21) 

20 FOR IT TO 21 

30 READ A 

40 A$(I)=CHR$(A):REM or POKE ADR(A$)+1-1,A 

50 NEXT 160 DATA 104,104,133,213,104,133,212 

70 DATA 24,104,170,104,101,212,133,212 

80 DATA 138,101,213,133,213,96 

90 REM 

100 A=USR(ADR(A$),416,708) 

110? A 

120 END 

Before we start the stack looks like this: 

(empty) 

After we execute the USR statement (before the assembly program 
executes), the stack looks like this: 

(top) 02 N (number of variables on the stack) 

01 V1 (high byte) 

AO V1 (low byte) 

02 V2 (high byte) 

C4 V2 (low byte) 

HH return address for BASIC (high byte) 
(bottom) LL return address for BASIC (low byte) 
The assembly program then executes as follows: 
10 PLA; pulls N from stack 


, 


; read in first number 


A = 416 + 708 


20 PLA pulls V1 (high byte) to accumulator 
30 STA D5 stores accumulator to address D5 
40 PLA pulls V1 (low byte) to accumulator 
50 STA D4 stores accumulator to address D4 


+ 


; add second number to first 


60 CLC clear carry (before adding) 

70 PLA pulls V2 (high byte) to accumulator 

80 TAX transfer accumulator to X register 

90 PLA pulls V2 (low byte) to accumulator 

100 ADC D4 adds address D4 to accumulator with carry 
110 STA D4 stores accumulator to address D4 

120 TXA transfer X register to accumulator 

130 ADC D5 adds address D5 to accumulator with carry 
140 STA D5 stores accumulator to address D5 


, 


; return to BASIC 


150 RTS used return address on stack to return to BASIC 
When returning from the USR function the numbers in address 212 
(low byte), 213 (high byte) (hex D4,D5) are stored in the result variable 
(A) of the USR function automatically. 
— David Will 


CRAPS BY JOHN KELLY 


REM JOGOXOOOOOOOOOPOOOHOOOOOEN 

REM % WRITTEN FOR ACE BY * 

REM X JOHN R. KELLEY * 

REM * 688 5.E. 28th AVE X 

REM % PORTLAND, OR 97214 » 

REM EEE EEE EE EEE 

REM JOOGBHOOOOOHOCOOOOOPOIHODOUE 

DIM AS (2) 

18 REM GRAPHIT 

12 POKE 718,8:POKE 712,8 

14 DLI-PEEK (566) *256XPFEK (561) 

i5 POKE 71@,112:POKE 712,112 

16 POKE DLI+9,7:P0KE DLI*18,7:POKE DLI 
+19,6:POKE DLI+20,6 

18 POSITION 7,4:7 "Craps 
dice gamew 

28 POSITION 2,7:? " This program bring 
s craps to the computer. It is pur 
ely a game of" 

22 ? "Chance and the only controllable 
iteM is the bet. Make your bets caref 
ullu and LOTSALUCK ! I 

24 POSITION 5,13:7 "DEVISED BY J 
OHM R. KELLEY" 

25 POKE DL*7,7:POKE DL+8,7 

26 POSITION 7,18:? "Hit BØTE to begin 
game," 

28 IF PEEK(532791-6 THEN 38 

29 GOTO 28 

30 GRAPHICS 8:POKE 718,8 

31 POSITION 2,5:? "Do you want the ins 
tructions?":? :? "Tf so, hit ET3NETHMj.": 
7 1? "Tf not, hit MA TI). " 

32 PE-PEEK (53273) 

33 IF PEIS THEN GOTO 39 

34 IF PE-3 THEN 78 

35 GOTO 32 

37 ? "displays dominoes and asks the U 
ser to solve arithmetic problems bas 
ed on" 

43 GRAPHICS 8:POKE 718,178:POKE 712,17 

8 

48 XCOORD-319: YCOORD-159 

42 ? ;:? " If a player rolls a 2, 3 or 

12 on his first roll, he loses. Å 7 
or ii" 

44 ? "on the ist roll is an automatic 

Win. Otherwise the Dice are rolled un 

tip" 

45 POSITION 4,16:7 "DEVISED BY JOHN R. 
KELLEY, 3/84" 

46 ? "the total of the ist roll is rol 

led again, in which case the Player 

wins,” 


eo Q A 4 PS = dg 


48 ? "or a 7 or 11 is rolled, in which 
case the player craps out (loses)! !" 
98 MSCAÓLE-52:Y5CALE-28 

55 POSITION 9,18:7 "Hit FATTE to begin 


68 
65 
78 
£2 


HMARKERS-4: YMARKER S=4 
GOTO 68 
6-596 
C-8:I-8 

74 POKE 718,4 

75 POSITION 2,3:? " 3886€ DOMINO ARITHM 
ETIC 0006 " 

7b ? :? " Choose the type of problem y 
ou Want":? "Type in the number" 

78 ? :? "(1) Addition " 

88 POKE 82,@:GRAPHICS 8:COLOR 1:POKE 7 
18,8:DIM Zá$t58) 

82 ? ;? "(3) Subtraction " 

85 ? : INPUT N 

98 ? :? "$5888 breaks the bank" 

35 OM N GOTO 168,208,780 

188 7 :? "How much will you bet"; 

182 POSITION 2,2:? "Shuffle the domino 
85,557 

i85 INPUT C 

116 IF C)B THEN ? :? "You don't have t 
hat much, Hotshot'":GO0TO 88 

128 PLOT 8,8:DRAHTO 8,YCOORD:DRAHMTO KC 
OORD, YCOORD :DRAMTO HCOORD,@:BRAWTO 8,8 
:G05UB 2888 

125 X-18:Y-4 

ii8 ? :? "Hit (MT for your ist roll 
"AS 

135 GRAPHICS @:POKE 709,4:POKE 718,15 
137 POSITION 26,9:? "= "::TRAP 137: IMP 
HT T1:TRAP 48888 

148 ? 17" FIRST ROLL:" 

145 POSITION 2,2:? " 

158 L-INT(6XRND (8) *1) : RCINT COXRND C8) +i 
J 

151 T-L*R 

152 GOSUB 1188 

153 K-14:Y-3 

154 OM L GOSUB 1888,1818,1820,18:0,184 
8,1858 

155 H-22:Y-4 

156 ERROR- ON R GOSUB 1888,1818,1828 
,1838,184kD71 E på 564424] 184 2 :7 "Total 
Taj 

168 POSITION 5,18:7? "Incorrect! Tru ag 
31n'";:TRAP 168:INPUT T2:TRAP 48888 

162 U-Ü+1 
165 IF T2-T THEM POSITION 5,18:7 "OK! 


5 


But it doesn't count now!":FOR I-1 TO 
333:NEMT I:G0TO 188 
167 POSITION 5,18:? " 

tE 
178 POSITION 5,18:? "No, the correct a 
nswer is ";T 


172 FOR I=i TO 3I3:NMEXT I 

175 POSITION 5,18;? " 

188 IF (T-2)*(T-33*(T-12) THEN GOTO 38 
8 

181 ? "g" 

185 NEKT Q 

138 IF (T-73*(T-11) THEM GOTO 488 

208 ? ;? T;" 45 your point":? 

282 POSITION 2,2:? "Shuffle the domino 
es..." 


285 GOSUB 2388 

218 ? :? "Hit NA for your next rol 
1"; :INPUT à$ 

2115 7 "g" 

228 M-INT(GXRND(83*1) : NCINT CGXRND (8) +1 
) 


223 U-MtN 
224 GO5UB 1188 
229 ? :? " Rolf!" 


218 K-14: Y= 

233 ON M GOSUB 1888,1818,1820,18318,184 
8,1858 

235 K-22:Y-4 

237 POSITION 26,9:7 "= '";:TRAP 237:INP 
UT TL:TRAP 48888 

248 OM N GOSUB 1800,1018,10278,1030, 184 
8,1858 

245 POSITION 2,2:? " 

298 ? ;? “Total, D 

255 IF Ti=T THEM POSITION 5,18:? "Righ 
t !":605HB 2488:FÜR I-1 TO IIT:MEKT I: 
POSITION 5,18:? " ":C-Ct1:GOTO 2 
88 

268 IF U=T THEN GOTO 458 

262 U-Ut+1 

265 IF TZ2=T THEN POSITION 5,18:7 "QK! 
But it doesn't count now!";FOR Izi TO 
SS3:NEKT I:GO0TO 288 

267 POSITION 5,18:? " 

278 ERROR- 
1-8 

272 FOR I-1 TO 333:NEXMT I 
275 POSITION 5,18:7 " 


Hn 


IF (i-7)*(U-11) -roH 


288 7 :? “Wot your point,'':? :7 "keep 


CRAPS 








































rolling the bones! !" 618 FOR MT=1 TO 666:NEXT WT:GRAPHICS 8 1812 POSITION X,Y+2:7 "EEEN" 
281 ? "&" : END 1913 POSITION X,Y+3:7 “i 
285 NEKT Q 628 ? "HEY! YOU'VE BROKEN THE BANK MIT 1814 POSITION K,Y+4:? “TRY 
238 GOTO 218 H 5";B 1815 RETURN 
388 IF T-2 THEN ? :? "Snake eyes!" 618 END 1828 POSITION R,Y+0:7? "CONES" 
302 POSITION 2,2:? "Shuffle the domino ¢59 v-INT(6XRND(O)T1):X-INT(G6XRND(O)41 1821 POSITION X,Y+i:7 "WWE 
es,,.," ) 1822 POSITION X,Y+2:? "CENE" 
185 GOSUB 2188 668 RETURN 1823 POSITION X,Y+3:7 "EN" 
$18 IF T-3 THEN ? :? "Cock eyes!" 678 Y=INT(GÆRND (8) +1) : K-INTCOXRND (B) 41; 1824 POSITION X,Y+4:7 “TRY” 
328 IF T-12 THEN ? :? "Box cars!" ) : RETURN 1825 RETURN 
325 K-18:Y=4 788 SOUND 8,121,18,8:F0R I-1 TO 20:MEX 1030 POSITION X,Yt8:? "OK 
330 GOTO 360 T I:50UND 1,96,18,8:FOR I-1 TO 2@:NEXT 1071 POSITION X,¥+i:? "EENE" 
335 POSITION 13,9:7 "=" I 1812 POSITION X,Y+2:7 "EENEN" 
$17 POSITION 26,91? "= ";;TRAP 337:INP 718 SOUND 2,81,18,8:F0R I-1 TO 28:NEKT 1833 POSITION K,Y+3:7 "EEENN" 
HT Ti: TRAP 48888 I:50UND 3,60,18,8:FOR Izi TO 2Ø:MEXT 1834 POSITION K,Y+4:7 "EET" 
348 T=A-B I 1835 RETURN 
345 POSITION 2,2:? " 728 FOR RE-8 TO 1:501ND RE,8,0,0:NEXT 1848 POSITION K,Y+0:7 "TENET" 
š RE:RETHRN 1041 POSITION K,Y+1:? "i" 
358 ? :7 "You crapped out!" 758 SOUND 0,78,12,8:FOR J-8 TO 6:FOR K 1842 POSITION X,Y12:? "Dr" 
355 GOSUB 758 -8 TO 12:NEKT K:NEXT J 19843 POSITION K,Y+3:7 "NENNEN" 
368 ? :? "You lose your bet!" 768 SOUMD 8,8,8,0:RETURN 1844 POSITION X,Y*t4:? “Ty 
362 U-UtL 888 R-INT(C/PX188) i845 RETURN 
365 B=B-C 885 GRAPHICS 18 1858 POSITION X,Y+0:7? "TEET" 
367 POSITION 5,18:? " 898 7 H 1851 POSITION X,Y+1:7 "EEENEI" 
" 388 ? t6;" final tally " 1852 POSITION X,Y12:? "TEEET" 
378 IF B(-8 THEN GOTO 688 381 ? HG 1853 POSITION X,Y*::? "ENEENE" 
172 FOR I-1 TO 333:WEXT I 382 7 HG:" CORRECT....."';C 1854 POSITION X,Y+4:7 "(3)" 
375 POSITION 5,18:? " 987 ? HG 1855 RETURN 
på 385 7 tö:" Ai..." 1188 FOR I-1 TO 18 
388 GOTO 88 387 ? HG 1181 POSITION X,Y*1:? "M: 
serus 318 ? tt6;" score.......":RE"%." 1182 POSITION X,Y+2:7 "OD" 
$85 MEKT Q 312 FOR WAIT=i TO 555:NEKT WAIT 1183 POSITION K,Y+3:7 "EE" 
488 POKE 752,1:? " 915 GRAPHICS 8:POKE 752,1 1184 POSITION X,Y+4:7 "EEENE" 
TOCK CHART 1386 328 POSITION 2,7:? "Mould you like ano 1185 POSITION K,Y+5:7 "em 
418 GOTO 468 thar <Bearezeeo* 1186 POSITION X,Y*6:? “am 
428 GOSUB 1588 925 7 :? "If so, hit BET." 1187 POSITION X,Y*7:? "ME" 
438 Zà$-"Hi: AAA DOORKNOB RENTALS, INC 326 C-8:U-8 1108 POSITION ¥,¥+8:7 "NENNEN" 
SUIZKCAIZY-iI8:ZZZ-8:G05UB 1168 327 ? :? "If not, hit AFTI]. " 1189 POSITION X,Y43:? "EE" 
448 GOSUB 1588 938 IF PEEK(53279)=6 THEN 78 1118 FOR 5-8 TO 58 STEP 28 
498 ? ;? "Yes! You hit your point." 935 IF PEEK(53279)=3 THEM POSITION 2,1 1111 RETURN 
455 GOSUB 788 ‘Til next time, then," 1128 SOUND 8,5,8,15:NEKT 5 


7:7? "Thank you! 


468.202 UWP: | RYZ/BESIGMER.MASTEPASKEBG «pop yst TO TiT:NENT T:GRAPHICS O:END 


5, INC.":2H-2:271-148:777-8:G05UB 1168 


1138 
1148 


SOUND 8,8,8,0:NEXT I 
GOTO 1148 


465 B-B+C 948 GOTO 938 1168 REM DISPLAY TEXT IN GR.8 
478 IF B)-5888 THEN GOTO 628 958 END 1178 ZL=PEEK (568) +PEEK (551)X256 
488 Z05-"S1S":ZK-1:2Y-16:727-8:605UB 1 399 END 1188 ZM-PEEK(ZL*4) *PEEK (2L 45) 256 
168 1888 POSITION X,Y+8:7? "EE: i288 FOR ZH-1 TO LEN(CZAS) 
388 ZA$-"$18'":ZW-1:2Y-76:277-8:605HB 1 iagi POSITION Yt? ae 1281 POSITION X,Y*1:7 "ENEEN" 
168 1882 POSITION X,Y+2:7 "ER 1282 POSITION X,7:2:? "EON 
328 Z$-"SS":ZN-1:2Y-116:277-8:G050B Å 188r POSITION K,Y+3:? rs 1283 POSITION X,Y*::7 "Ze 
169 1884 POSITION X,Y44:? "ENENE" 1284 POSITION K,Yt4:? "EEER" 
688 ? :? "And you're out of Money, t00 4885 RETURN i285 POSITION K,¥+5:? “Sou 
bad.":? :? "Better luck next time!!!" 818 POSITION X,Y*0:? "EE 1286 POSITION X,Y*6:? "NENNEN" 
1811 POSITION K,Y+ti:? "ENENEN" i287 POSITION K,Y+7:? "ENENEE" 
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1288 
1289 


1211 


1228 ZT-57344* CCASC CZAS (ZH, ZH) 2 - 32) X8) 


1248 
1268 
i288 
13880 
1381 
1382 
1303 
1304 
1385 
1386 
1367 
1368 
1389 
1318 
1378 
1348 
1368 
1488 
1461 
1482 
1483 
1484 
1485 
1406 
1487 
1488 
1483 
1418 
1411 
1580 
1581 
1582 
1503 
1584 
1585 
1586 
1587 
1588 
1583 
1518 
1511 
i528 
1548 
1568 
1588 
1688 
1681 
1682 


POSITION K,Y+8:? “GF 


POSITION K,Y+9:? "EHE" 
1218 POSITION X,Y*10:? “Zz! 


RETURN 


ZC-ZMEZYXABEZKR* CZH-1) 


FüR ZR-8 


TO 7 


POKE ZC+ZR¥4@, PEEK CZT*ZR) 


NEXT ZR 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 


K,Y¥ti:? 
K,Yt2:7 
K,Yt3:? 
K,Yt4:? 
K,Yt5:? 
K,Y*6:? 
K,Yt7:? 
K,¥t8:? 
R, ,Y+9:7 


FITTE 


X,Y+10:7 “ay 


ZY=ZY+ZZZ 


NEXT ZH 
RETURN 


POSITION X,Y:? “ary 


POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

REM READ 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 


K,Yt1:? 
K,Yt2:? 
A, Yt3:? 
K,Yt4:? 
K,Yt5:7 
K,¥46:7 
K,Yt7:? 
K,Yt8:? 
K,Yt3;? 


K,Y*i18:? ' 




















DATA, PLOT LINES 


K,Yti:? 
K&,Y12:? 
K,Y+t3:? 
K,Yt4:7? 
K,Yt5:?7 
E,Ytb:? 
K,Yt7:? 
K,Y*8:? 
K,Yt9:? 


I-8:H-8:Y-8 


RETURN 
READ Y 














LETT 


IF Y?YSCALE THEN RETURN 


Y-YCOORD-YXCYCOORD/YSCALE) 
H-K+XCOORD/ XSCALE 


IF I-8 THEM PLOT K,Y 


POSITION X,Y*1:? ' 
POSITION X,Y*2:? ' 


1663 
1604 
1685 
i686 
1687 
1608 
1683 
1618 
1511 
1628 
1788 
1781 
1782 
1783 
i784 
1785 
1786 
1787 
1788 
1783 
1718 
1711 
1888 
1881 
1882 
1881 
1804 
1885 
1886 
1887 
i888 
i88? 
1818 
1811 
1388 
1301 
1982 
1903 
1984 
i985 
1386 
1387 
1988 


POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 


PRAMHTO X,Y:I-I*i:GO0TO 1528 


POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITIQN 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 


CRAPS 


K,Y¥t3:? 
K,Yt4:? 
K,Yt5:? 
K, ,Yt6:7 
K,Yt7:? 
K,Yt8:7? 
K,Y*9:? 


X,Y+10:7 "EE" 


nmi 


y,v:? NBI 


K,Y*t1:? 
K,Y#2:? 
K,¥t3:? 
K,Yt4:? 
K, ,Y+5:7 
K,Yt6:? 
K, Yt7:? 
K,Yt8:? 
K,Y*9:? 


K,Ytie:? "CREE" 














X, v:* "NNI" 


K,Yt1:? 
K,Yt2:? 
K,Yti:? 
K,Yt4:? 
K, ,YT5;:7 
K,Yt6:7 
NK; Vere 
K,Y*8:7 
K,Y+9:7 


K,Y+ie:? "TENE" 


' i 


X,Y:7 "NEED" 


H,Y¥ti:? 
K,Yt2:? 
H,Y+3:? 
K,Yt4:? 
B, Yt5:? 
K,Ytb:? 
K,Y*7:? 
K,Y*8:7? 


— 
cm 
ed 
“a 
5 ROMER ES L 
mda 
ED: 
CHE 


1989 POSITION X,Y+3:? "EE" 
1918 POSITION X,Y*4(,3-484 €; $g-.. 8 PLEN 
e*(Q F This program brings craps to the 
computer. It is purely a game off 
[cc G [chance and the only controllable 
item is the bet. Make your bets caref 
ullu and LOTSALUCK ! !| 434-, 84—. 2409 ( + 
DEVISED BY JOHN R. KELLEY |] +73RE 
M $g-.8 F-eNee (GF This program brings 
craps to the computer. It is purel 
y a game off | ccG (chance and the only 
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controllable item is the bet. Make you 
r bets carefully and LOTSALUCK! !{ 494- 
aT tE? (a DEVISED BY JOHN R. K 
ELLEY| Í tr? CLOGém—_@ F_@\eeG F This pro 
gram brings craps to the computer, 
It is purely a game ofl cc [chance a 
nd the only controllable item is the b 
et. Make your bets carefully and LOTS 
ALUCK! !] £9,.-_@5—_@4+09(, DEVISED BY 
JOHN R. KELLEY f trim- „e HONS G F 
This program brings craps to the c 
omputer. It is purely a game off | cc GI 
chance and the only controllable item 
is the bet. Make your bets carefully 
and LOTSALUCK! !] 4347, 84— 048? (, ?DEUISE 
D BY JOHN R. KELLEY | tr? CLOGDL Om 
-Q8 FGNaeF This program brings crap 
s to the computer. It is purely a 
game off cc G [chance and the only cont 
rollable item is the bet. Make your be 
ts carefully and LOTSALUCK ! '| 494. &4— 
O89 ( ?DEUISED BY JOHN R. KELLE 
Yi f tr 63.8 F_eNee (G F This program br 
ings craps to the computer, It is 
purely a game off cct [chance and the 
only controllable item is the bet. Mak 
e your bets carefully and LOTSALUCK!! 
| +3_-_@4—_@+e9(, DEVISED BY JOHN 
R. KELLEY f t*r21.188445241E-335 (PTRIGA 
PRUALCLOGCOSPTRIGYCOORDSg-, 8G F GNae GF 
This program brings craps to the 
computer. It is purely a game off I cct 
[chance and the only controllable item 
is the bet. Make your bets carefully 
and LOTSALUCK! ij 9a- 29 = 8489 i, BEVIS 
ED BY JOHN R. KELLEY f *r?1.58882 
2-8»E-iS8YCOORD STEP YCOORD/YSCALE:2)4 
,12888 REM DRAW SCALES 
2848 FOR Iz TO YCOORD STEP YCOORD/YSC 
ALE:PLOT 4, I:DRAMTO 8,I:NEKT I:REM LEF 
T 
2868 FOR I-8 TO YCOORD STEP YCOORD/YSC 
ALE:PLOT 315,I:DRAHTO KCOORD, I:MEXT I: 
REM RIGHT 
2888 FOR I-8 TO KCOORD STEP XCOORD/XSC 
ALE:PLOT I,4:BRAWTO I,80:NEXT I:REM TOP 


2188 FOR I-8 TO KCOORD STEP KCOORD/KSE 
ALE:PLOT I,155:DRAMTO I, YCOORD:WEKT I: 
REM BOTTOM 

2128 REM DRAW X & Y MARKERS 

2148 FOR I-8 TO YCOORD STEP YCOORD/YMA 
RKERS:PLOT 8,I:DRAMTO B,I:MEKT I:REM L 
EFT 


REM EEE EEE 
REM % DOMINO ARITHMETIC * 
REM X by * 
REM * JOHN R. KELLEY X 
REM * 688 S.E. 28th AVE * 

REM 3 PORTLAND, OR 97214 X 

REM EEE EEE 

18 GRAPHICS @:POKE 752,1 

15 POKE 718,117:P0KE 712,112 

28 DL-PEEK (568) t256XPEEK (561) 

25 POKE BLt7,7:POKE DL*8,7 

38 POSITION 7,2:? “domino E 
Pithmeticg 

35 POSITION 2,5:? " This is a differen 
t way to interest students in numbers 
. This program " 

37 ? “displays dominoes and asks the U 
ser to solve arithmetic problems bas 
ed on" 

48 ? "the spots on each domino. In the 
sub- traction part the use of (-) min 
us" 

42 ? "numbers may require some explana 
tion for the uninitiated. This drill 
15 good for the younger learner." 
45 POSITION 4,16:? “DEVISED BY JOHN R. 
KELLEY, 31/84" 

55 POSITION 9,18:? "Hit ETÀ to begin 
aa 

68 IF PEEK(53273)-6 THEN 78 

65 GOTO 68 

78 GRAPHICS 8:POKE 752,1 

72 C-8:I-8 

74 POKE 718,4 

75 POSITION 2,3:7 " 30004 DOMINO ARITHM 
ETIC see '' 

76 ? ;? " Choose the type of problem y 
ou want";? "Type in the number" 

78 ? :? "(1) Addition " 

88 7? :? "(2) Multiplication" 

82 7 :? "(3) Subtraction " 

85 7 INPUT N 

98 ? :7? "How many problems do you want 
"> INPUT P 

35 ON H GOTO 188,208,308 

i88 FOR Q-1 TO P:? "Ñ Problem H"; 
182 POSITION 2,2:7 "Shuffle the domino 
es,55*t 

1@5 60508 23188 

iig X-5:Y-4 

128 A-INT(I?2XRND(CB)*1):0N A GOSUB 1188 
,i1288,1388,1488,1588,1688,1788,1888,19 
88,7888,2188,272808 


r gn Be C4 hM oM UG 


DOMINO ARITHMETIC 


125 K-18:Y-4 
138 B-INT(CI2XRNDCH)*1):0N B GOSUB 1188 
,1288,1388,1488,1588,1688,1788,1888,19 
88,2888,2188,72288 
135 POSITION 12,9:? "4" 
137 POSITION 26,9:? "I ";:TRAP 137:INP 
UT Ti: TRAP 40008 
148 T-A*B 
145 POSITION 2,2:? " 
158 POSITION 27,93;? " u 
155 IF Ti=T THEM POSITION 5,18:? "Righ 
t '":605UB 2488;FO0R I-1 TO S33:NEXT I: 
POSITION 5,18:? " "IC-CCt1:GO0TO 1 
88 
168 POSITION 5,18;? "Incorrect! Try ag 
ain"; TRAP 168;INPHUT T2: TRAP 48888 
162 U-Uti 
165 IF T2-T THEN POSITION 5,18:? "OK! 
But it doesn't count now!";FOüR I-i TO 
JIJ:NEKT I:GOTO 188 
167 POSITION 5,18:? " 
178 POSITION 5,18:7? "No, the correct a 
nswer is ' T 
172 FOR I-1 TO 333: NEXT: I 
175 POSITION 5,18:7 " 

aa 
188 REM 
183 ? "E" 
185 NEKT Q 
138 GOTO 888 
288 FOR Q-i TO P:? "K Problem fi'';0 
282 POSITION 2,2:? "Shuffle the domino 
es..." 
285 GOSUB 2300 
218 X-5:Y-4 
228 A-INT(1I2XRMD(CB8H)t1):0N Å GOSUB 1188 
,i288,1:88,1488,1588,1688,1788,1888,19? 
80,2888,2188,2288 
225 H-18:Y-4 
230 B-INT(i12XRND(BO)*1):0N B GOSUB 1188 
,1288,13:88,1488,1588,1688,1788,1888,1? 
88,2888,2188,72288 
235 POSITION 13,9:7 "H" 
237 POSITION 26,9:? "I "; TRAP 237:INP 
UT Ti: TRAP 48888 
248 T-ñ%*B 
245 POSITION 2,2:? " 
258 POSITION 27,9:7 " # 
255 IF T1-T THEN POSITION 5,18:? "Righ 
t !'":605UB 2400:FOR I-1 TO IIJ:MEKT I: 
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POSITION 5,18:? "Ü "iC-Ct1:G0TO0 2 
88 

268 POSITION 5,18:? "Incorrect! Try ag 
ain";:TRAP 266: INPUT T2:TRÀP 48888 

262 U-Ú+I 

265 IF T2-T THEM POSITION 5,18:7 "OK! 
But it doesn't count now!";FOüR I-1 TÜ 
III:WEHT I:GOTO 288 

267 POSITION 5,18:? " 

278 POSITION 5,18:7 "No, the correct a 
nswer is ";T 

272 FOR I-i TO JIFF:MEKT I 

275 POSITION 5,18:? " 

288 REM 

283 ? "R" 

285 NEKT Q 

238 GOTO 888 

308 FOR 0-1 TO P:? "K Problem tt'';Q 
i82 POSITION 2,2:7 "Shuffle the domino 
es,,,," 

i85 GOSUB 2388 

318 M-5:Y-4 

i28 A-INT(IZXRND(8)*1):0N A GOSUB 1188 


 ,1288,1:88,1488,1588,1688,1788,1888,19 


aa, 2008, 7188, 2288 
325 K-18:Y-4 
338 B-INT(12XRND(G)*1):0N B GOSUB 1188 
,1288,1188,1488,1588,1680,1788,1888,13 
88,2888,2188,2208 
335 POSITION 13,9:? "=" 
337 POSITION 26,9:? "= ";:TRAP 317:INP 
UT T1:TRAP 40000 
340 T=A-B 
345 POSITION 2,2:7 " 

LII 
358 POSITION 27,9: 2 "  " 
355 IF Ti-T THEN POSITION 5,18:7 "Righ 
t !":6051B 2488:FÜR Izi TO 333:WEXT I: 
POSITION 5,18:7 " ":C=C+1:6070 3 
88 
368 POSITION 5,18:7 "Incorrect! Try ag 
ain";:TRAP 360:INPUT T2:TRAP 40000 
362 U=U+1 
365 IF T2-T THEN POSITION 5,18:? "OK! 
But it doesn'T count now!":FOR I-i TO 
I333:MEXT I:GOTO 188 
367 POSITION 5,18:7 " 

as 

378 POSITION 5,18:7 "No, the correct a 
nswer is '';T 
372 FOR I-1 TO 333:WEXT I 


$75 
st 
i88 
383 
385 
888 
885 
838 ? t6 
388 ? H6;" 
981 ? t6 
302 ? H6;" 
3983 ? H6 
285 
987 
918 
312 
915 
928 


REM 


? ugu 
NEKT Q 


Hb 
Hb;" 


Um» o3 o3 603 3 c 


POSITION 5,18:? " 


R-INT (CC/PX*188) 
GRAPHICS 18 


ther exercise?" 
3259 ? ;? "If so, hit BL." 


326 C-8: 0-8 


final tally " 


CORRECT.....''; 


H6;" wilde Tes... 


SCOre,.... SRK" 

FOR WAIT=1 TO SSS:NEKT WAIT 
GRAPHICS 8:POKE 752,1 

POSITION 2,7:? "Would you like ano 


327 ? :? "Tf not, hit 12901." 
3i8 IF PEEK(532793)-6 THEN 78 
335 IF PEEK(S32793=3 THEM POSITION 2,1 


7:7 "Thank you! 


‘Til next time, then." 


;FOR I-1 TO 333:NEKT I:GRAPHICS @: END 


948 GOTO 938 
358 END 

999 ENP 

1188 POSITION 
1181 POSITION 
1182 POSITION 
1163 POSITION 
1164 POSITION 
1185 POSITION 
1186 POSITION 
1187 POSITION 
1188 POSITION 
1189 POSITION 
1118 POSITION 
1111 RETURN 
1288 POSITION 
1281 POSITION 
1282 POSITION 
1283 POSITION 
1284 POSITION 
1285 POSITION 
i286 POSITION 
1287 POSITION 
1288 POSITION 
i283 POSITION 
1218 POSITION 


K,Y:? "EEENEM" 


K,Yti:? 
K,Yt2:7 
H,¥+3:? 
K,Y¥t4;7? 
K,Yt5:? 
K,Yt6:? 
K,Y*7:? 
K,Yt8:? 
K, ,Y+9:7 


X,Y+10:7 "EE" 


KR, ,Y+8:7 
K,Y+1:7 
K,Yt2:? 
K,Y¥t3:? 
K, ,Y+4:7 
B,Y*5:? 
K,Yt6:? 
H,Y+7:7 
K,Y*8:? 
K,Yt9:? 
















ll 





K,Y*t18:? "NEN" 


BY JOHN KELLY 


1211 
1388 
1301 
1302 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1318 
1328 
1488 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1483 
1418 
1411 
1588 
1581 
1582 
1581 
1584 
1585 
1586 
1587 
1588 
1509 
1518 
1511 
1688 
1681 
1682 
1681 
1684 
1685 
1686 
1687 
1688 
1689 
1618 
1611 
1788 
1701 
1782 
1781 


RETURN 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 

POSITION 
POSITION 
POSITION 
POSITION 






















































X,Y16:2 “(ye 
K,Yti:? "WEEER:: 
K,Y+2:? "ANN" 
K,Yt3:? "E: 
K,Yt4:? "EET" 
K,Y+5:7? nammen, 
X,Y+6:? "EENNI" 
X,Y+7:? ‘ae 
4,Y18:27 "EN 
K,Yto:? “ae 
X,Y+10:? "EE" 
x,v:? "END: 
X,Yti:? "EN" 
X,Y+2:? "EN" 
X,Y*t1:2 "EN" 
K,Yt4? TNI" 
= 
X,Y+6:? “Sy 
K,Yt7:? "EBENEN" 
K,Y+8:? "EE" 
K,Y*9:2 "EN" 
K,Y+10:? "(ee 
X,Y:? "NE" 
X,Y*1:7 "AEN" 
X,Y12:2 "EI NP" 
X,7*1:2 "NEN" 
X,Y+4:7 "ENT" 
R05: 2 WI 
X,Y+6:? “(ye 
X,Y+7:? “a 
x, Y+8:? “ye 
X,Y+9:? "ye 
KX,Y+10:7? "EMEN 
K,Y:? “ry: 
H,Y+i:? "EE" 
K,Y+2:? "ER 
X,Yt1:7 “ee 
X,7+4:? "(ye 
Li? mmm 
4,Y*6:? “Sy 
X,Y+7:? "EN" 
X,Y10:2 “ie 
H,Yt9:? “ee 
K,Y+10:2? "(ae 
K,Y:? “Cay 
K,Yti:? "EN" 
X,Y12:7 "NEN" 
X,Y+3:? “Se 
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1784 
i785 
1785 
1787 
1788 
1789 
1718 
1711 
1808 
i881 
1882 
1803 
1884 
1885 
1886 
1887 
i888 
i883 
i818 
1811 
1988 
1381 
1982 
i98: 
1384 
1985 
1386 
1987 
1988 
1383 
1318 
1911 
2888 
2881 
2002 
2083 
2884 
2885 
2886 
2887 
2888 
2883 
2818 
2811 
2812 
2108 
2181 
2182 
2183 
2184 
2185 
2106 
2107 


POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 
REM 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
RETURN 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 


H,¥+4:7 
K, ,Y+5:7 
K, ,Y+6:7? 
K, Yt7:7 
K, Yt8:;? 
K,Yt2:7 "WENSE:' 
K,Y*18:? "ESE: 













dii 





K,Y:? CNET" 
K,Y*1:? 
K,Yt2:? 
&,Ytt:? 
K,Yt4:? 
A,Yt5:? 
K,Y+6:7 
K,Yt7:7? 
K,Y+8:? 
K,.,Y+9:7 
X,Y+10:7 ‘(iy 


- - - - 
- - - - 














FIIN 





X,Y:? "NEP" 
K,Yt1:? 
K,Y*2;?7 
K, ¥43:7 
K,Yt4:?7 
8,Yt5:? 
H8,Ytb:? 
K,Yt7;:? 
K,Yt8:? 
På åå IE ! 
K,Y*t18:? "TENET" 

















~ - 
Ca - 


K,¥:? "SE 
H,Y¥+ti:? 
E,Yt2:? 
H,Y+3:? 
K,Yt4:? 
A,Yt5:7 
H,Y+6:7 
K,Y+7;? 
K,Yt8:? 
M ,Y+9:7 ! 
K,Ytie:? "TENE" 


X,Y:? "NEED 
K,Y*1:? 
K,Y+2:? 
K,¥t3:? 
K,Yt4:? 
K,Y+5:? 
K,Y+6:7 
X,Y47:? 










LLLI 

























LL 










DOMINO ARITHMETIC 


2188 POSITION K,Y+8:? "TK 
2189 POSITION K,Y+9:7 "E: 
2118 POSITION X,Y+10:7 "END" 
2111 RETURN 

2288 POSITION X,Y:? “Cy 
2201 POSITION ¥,Y+i:? “Ee 
2282 POSITION K,Y+2:7 "Cy 
2203 POSITION K,Y+3:7 “zz 
2284 POSITION K,Y+4:7 "TK 
2285 POSITION K,Y+5;7 = 
2286 POSITION X,Y+6:7 "EHE" 
2287 POSITION K,Y+7:” "EE" 
2288 POSITION X,Y*8:2 "SE" 
2283 POSITION K,Y+9:? "ee 
2218 POSITION K,Y+ie:? "EMEND 
2211 RETURN 

2300 FOR I-1 TO 28 

2118 FOR S-8 TO 58 STEP 28 
2320 SOUND 0,5,8,15:MEXT 5 
2330 SOUND 0,0,8,8:NEXT I 
2148 RETURN 


24808 SOUND 8,121,18,8:F0R I-i TO 15:ME 
XT I:50HND 1,96,10,8:FOR I-i TO 15:NEK 
LE I 

2418 SOUND 2,81,18,8:FO0R I-1 TO 15:NEX 
T I:50UND 3,68,18,8:FO0R I-1 TO 15:NEKT 
I 

2420 FOR RE-8 TO I:50UND RE,8,8,8:NEKT 
RE: RETURN 


GRAPHIT 


i8 REM GRAPHIT 

48 KCO0RD-3I13: YCOORD-159 

»8 XSCALE-52:Y5CALE-28 

68 KMARKERS5-4: YMARKERS-4 

80 POKE 82,80:GRAPHICS 8:COLOR 1:POKE 7 
18,8:PIM Zà$t58) 

128 PLOT 0,B;DRAHTO 8,YCOORD:DRAWTO XC 
QO0RD,YCOORD:DRAMTO KCOORD,@:DRANTO 8,8 
;G605HB 2888 

488 POKE 752,1:? " 
TOCK CHART 19840 
428 GOSUB i588 

410 ZA Hi: AAA DOORKNOB RENTALS, IMC 
SUIZHM-A:ZY-i1i8:777-8:G05UB 1168 

448 GOSUB i588 

468 ZA3-"H2: KYZ DESIGNER MASTEBASKET 
5, INC.":7M-2:7Y-148:777-8:6050B 1168 


PRICE PER SHARE 5 


488 ZAS="$15":ZK=1:ZY=36:ZZZ=0:605UB 1 
168 

508 ZAS-"$10":7X=1:ZY=76:ZZZ=0:605UB 1 
168 

528 ZA$-"$5":ZK=1:ZY=116:7ZZ=Ø:G05UB 1 
168 
1148 
1168 
1178 
1188 
i288 
i228 


GOTO 1148 

REM DISPLAY TEXT IN GR.8 

ZL-PEEK (5683 *PEEK (561)X256 
ZM-PEEK CZLt4) *PEEK (71 45) 256 

FOR ZW-1 TO LEN(ZA$) 
Z1T-57344* í (ASC (ZAS CZH,ZW)) -32) 8) 


1248 
1268 
1288 
1308 
1328 
1348 
1368 
1588 
1518 
1578 
1548 
1558 
1588 
1688 
1628 


ZC-ZMtZYXA8427XK4 CZW-1) 

FüR ZR-8 TO 7 

POKE ZC*ZRKX48,PEEK(CZT*ZR) 

NEXT ZR 

ZY-Z¥+*ZZZ 

NEXT ZH 

RETURN 

REM READ BATA, PLOT LINES 
I-8:K-8:;: 7-8 

READ Y 

IF Y?YSCALE THEM RETURN 
Y-YCOORD-YKX CYCDORD/YSCALE) 
K-KtKCOORD/KSCALE 

IF I-8 THEN PLOT K,Y 

DRAMTO M,Y:I-I*i1:GOTO 1528 

2888 REM DRAW SCALES 

2848 FOR I-8 TO YCOORD STEP YCOORD/YSC 
ALE:PLOT 4,I1:DRAMTO B,I:MEXT I:REM LEF 
T 

2868 FOR I-8 TO YCOORD STEP YCOORD/YSC 
ALE:PLOT 315,I:DRAMTO KCOORD,I:NEXT I: 
REM RIGHT 

2888 FOR I-8 TO KCOORD STEP KCOORD/KSC 
ALE:PLOT I,4:DRAHTO I,8:MEXT I:REM TOP 


2188 FOR I-8 TQ KCOORD STEP KCOORD/ KSC 
ALE:PLOT I,155:PRÅMTO I,YCOORD:NEXT I: 
REM BOTTOM 

2128 REM DRAW X & Y MARKERS 

2148 FOR I-8 TO YCOORD STEP YCOORD/YMA 
RKERS:PLOT 8,I:DRAMTO 8,I:NEMT I:REM L 
EFT 

72168 FOR I-8 TO YCOORD STEP YCOORD/YMA 
RKERS:PLOT 311,I:DRAHWTO KCOORD,I:MEXT 

I:REM RIGHT 

2188 FOR I-8 TO KCOORD STEP NCOORD/KMA 
RKERS:PLOT I,7:BRAWTO I,@:WEXT I:REM T 
op 

2288 FOR I-8 TO KCOORD STEP KCOORD/KXMA 
RKERS:PLOT I,152:DRAMTO I, YCOORD:NEXT 
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I:REM BOTTOM 

2228 RETURN 

2188 DATA 17.95,17.65,17.72,17.56,17.8 
7,16.72,15.84,15.55,15.38,15,14.32,13. 
89,13.8,13.98,14.31,14.71,15.26,16.17 
2328 DATA 16.86,17.16,17.45,17.30,17.3 
0,17.06,17.12,17.12,17.12,17.23,17.34, 
17.46,17.32,17.38,17.34,17.07,17.94,16 
.62 

2340 DATA 16.38,15.88,15.45,14.99,14.7 
4,14.62,14.5,14.11,13.69,12.96,12.62,1 
2.81,12.84,11.85,11.55,11.92,181 

2368 DATA 16.86,16.96,16.76,16.5,15.78 
115.62,14.67,14.27,14.2,13.98,13.37,13 
:27,13.29,13.54,13.83,14.09,15, 16.84 
2388 DATA 16.79,16.75,17.16,17.45,17.1 
2,16.72,16.32,16.21,16.32,16.41,16.23, 
16.25,16.75,16.73,16.15,16.18,15.72,14 
.18 

2488 DATA 14.25,13.85,13.47,13.61,13.7 
4,13.18,12.96,12.43,12.03,11.36,10.89, 
18.62,18.89,18.49,18.62,18.96,181 


GLOBAL CHANGE 


i8 TRAP 1828:G05UB 1188:PRINT CHRS(i25 
I; TTLS 

20 REM XX GET FILE NAME 

30 PRINT :PRINT " Insert Filemanager D 
ata Disk" 

58 PRINT :PRINT " Enter name of file " 
; :IMPUT AMSRS 

68 FILES-AMSRS:FILESCLENGFILES)+1)=", 
MT" :FLNAMS-ANSRS : IDH=1 

78 REM X* GET AND DISPLAY FIELDS 

88 PRINT CHR$(125);TTLS:POKE 752,8 

38 OPEN 111,4,8,FILE$ 

i88 INPUT fii;NUMFLDS 

ii8 INPUT tf1;FLDN$ 

i28 FOR N-1 TO S: INPUT ti:A:FMCND=A:NE 
HT N:A-8 

138 CLOSE HI:LE-LENLCFILES) :FILESCLE- 3, 
LEJ-".IDK'":0PEN #1,4,8,FILE$ 

148 FOR N-1 TO S:IMPUT H1;IDHMi:NEXMT N: 
INPUT HL;IDKNZ2:IMPUT tti; DKI 

158 PRINT :PRINT "File ":CHRSC34) :FLMA 


HS; CHRS (34) ;" has "GNUMFLDS;" fields" 


168 PRINT :PRINT ,"Field names" 
178 PRINT LIN$:À4-8:B-5:C-Z 


i88 FOR Nzi TO NUMFLDSX12 STEP 12:A=At 

1 

198 B=BL:IF Azii THEM C-28:B-6 

288 IF ñ-18 THEN C-2 

218 POSITION C,B:PRINT 4;". ";FLDNSCH, 
M+11) 

228 NEXT M:POSITION 2,16:PRINT LINS 
238 IF IDK-@ THEN PRINT " NO INDEX FOU 
NP ":GOTO 288:REM "CIMVERSE)" 

248 PRINT "Indexed fields: "; 

258 IF IDKi}@ THEM PRINT IRKI; 

268 IF IDM2»8 THEN PRINT ",";IDKZ2; 

278 IF IPKI>A THEM PRINT '",";IDM3; 

288 PRINT :PRIMT :PRINT " Which field 
to search on ";:INPUT SRCHFLD 

298 PRINT "Which field to change ";:IN 

PUT CHGFLDP 

3808 REM XX DISPLAY INSTRUCTIONS 

310 PRINT CHRS (1275); TILS: CHGFLDS-FLDNS 
CCCHGFLD-1212*1, (CHGFLBD-1) #12412) 

128 5RCHFLDS-FLDNS CCoRCHFLD-1)312*1, C5 

RCHFLD-1)X12112) 

338 PRINT :PRINT "R '";CHGFLD2;" has ''; 

FNCCHGFLD3 ;" characters," 

i48 PRINT "$ ":SRCHFLD$;" has '";FNCSRC 
HFLDI ;" characters. "PRINT 

150 PRINT LINS:PRINT " If entry is enc 
Iosed in Quotes" 
368 PRINT " 
TEST": CHRS C342 
378 7 " any record in which this field 
":2 “contains the letters between":? 
" the quotation marks will be changed. 
Qi88 PRINT LINS:PRINT " If entry is enc 
losed in asterisks":PRINT " [rni 

(Wa: XTESTX'":PRINT " any records in whi 
ch this field does" 

398 PRINT " not contain the letters he 
tween":PRINT “ Asterisks will be chang 
ed." PRINT LINS 

488 REM 9X GET CRITERIA 

485 CHG$-" ": CHGS (255) -CHGS : CHES (22 -CH 
6$ 

418 POSITION 2,18:PRINT "Search for: " 
: INPUT CRITS 

428 POSITION 2,19:PRIMT "Change to: ''; 
INPUT ANSRS 

425 CHES (1, FN CCHGFLD) ) ZCANSRS 

438 POSITION 2,28:PRINT “lise Query tY/ 
NJ: ";:INPUT ANSRS 

448 IF ANSRSCL,1)="Y" THEN QUERY-1:60T 
0 468 | 
458 QUERY-8 


aT:  ; CHRS C342 ;" 


GLOBAL CHANGE 


468 POKE 752,1:POKE 764,Z255:POSITION 5 
,22:PRINT " CORRECT QI/L3nd)?" 

478 PE-PEEK (764): IF PE-255 THEM 478 
488 IF PE-35 THEN POSITION 2,18:PRIMT 
"MERERI ; POKE 764,255:POKE 752,8:G0TO0 
418 
438 
588 
518 
528 


IF PE-42 THEN RUM :REM "E" 

IF PE-43 THEN 528:REM "Y" 

GOTO 478 

REM ** BEGIN SEARCH 

538 PRINT CHR$(125); TTLS:RN-1 

548 FILESCL, 3ELENCFLNAMS)) CFLNAMS:FILE 

$ {LEM CFILES) £1) -", DAT" 

558 CLOSE H1:0PEN 11,12,8,FILES 

568 K-1:F0R N-1 TO MUMFLDS 

578 IF SRCHFLD-N THEM STSRCH-M:LNGTHSR 

CH-FN CM) 

580 IF CHGFLD-N THEN STCHG-HK:LNGTHCHG- 

FNCN) 

590 H-M*tFNCH) : NERT N 

688 REM XX GET FILE AMD CHECK FOR MATC 

H 

618 FOR N-1 TO LENCCRITS) : KSZCRITS (M, N 

J 

628 IF 

TO 658 

638 IF KS-CHRS$CI4) THEN STYPES="=": POP 
:GOTO 658 

648 NEXT N:STYPES="=>";G0TO 698 

658 LNTH-LEMCCRITS2 :IF CRITSCNTH,LNTH 

) Ox" OR CRITSCNTH,LNTH) OCHRSCIA) T 

HEM 678 

668 CRITS-CRITS(Z,LENCCRIT$2):G0TQ0 688 


K$-"X" THEN STYPES-"Q":POP :60 


678 CRITS-CRITS (2,LNTH-1) 

688 LNTH-LEN CCRIT$) 

690 NOTE #1,S5EC, BYTE: INPUT H1;INPTS 
788 POSITION 2,2:PRINT "Record H: ";RN 


718 POSITION 2,4:PRINT SRCHFLDS;":"; 
728 POSITION 5,6:FLD1$-INPTS(STSRCH, ST 
SRCH* CLNGTHSRCH-1)):PRINT FLD1$ 

718 POSITION 2,13:PRINT CHGFLDS;":"; 
748 POSITION 5,15:FLD25-INPT$CSTCHG, ST 
CHG+{LNGTHCHG-1)) :PRINT FLD2$ 

758 POSITION 2,19:PRINT "Changed to: " 
; 

768 
778 
788 
738 
888 
928 
818 


POSITION 5,28:PRINT 'IXIXXZIAD 

IF STYPES="<)" THEN 838 

IF STYPES-"-" THEN 888 

REM 3X CHECK FOR = OR > 

IF FLDP1SCL,LENCCRITSJ)-CRITS THEN 


RN-RN*1:G0TO 638 


11 


828 REM 3X CHECK FOR © 

630 REM 

848 FOR N-1 TO LENCFLD19)-LNTH 

858 IF FLD19 CN, NFLNTH-1)-CRITS THEN RN 
-RNt1:60TO0 698 

868 NEKT N:GOTO 926 

878 REM XX CHECK FOR = 

888 FOR N-1 TO LEN(CFLD19)-LNTH 

898 IF FLD15CN,N*LNTH-1)-CRITS THEN 92 
8 
988 
918 


NEXT M:RM=RN+1:GOTO 698 

REM ME CHANGE FILE AND PUT BACK 
978 IF QUERY-8 THEN 988 

338 POKE 764,255:PÜSITION 5,22:PRINT " 
Change this record (Y/M) ?'' 

348 PE-PEEK(764) :IF PE-255 THEN 948 
958 IF PE=43 THEN 988:REM "Y" 

368 IF PE=35 THEM RN-RHt1:GÜTO 698:REM 
ug 

378 GOTO 9348 

388 POSITION 5,21:PRINT CHGSCL,LNGTHCH 
G) : INPT$ CSTCHG, STCHG+ (LNGTHCHG-1) ) =CHG 
$ 

998 POINT fi,SEC, BYTE:PRINT ti; INPTS 
1888 RN-RNt1:GOTO 698 

1818 REM 3X CHECK FOR ERRORS 

1828 TRAP 18280:ERR-PEEK(195) : ERLIN-PEE 
K(186)4256XPEEK (187) 

1830 IF ERR=136 THEN 1868 

1848 IF ERR-178 AMD ERLIM=130 THEN IDK 
-8:60T0 150 

1858 POSITION 2,22:PRINT "Error ";ERR; 
" at line “;ERLIN: STOP 

1868 CLOSE Hi:POSITIOM 18,22:PRINT " [J 

FILES (LE-3,LE}=", IDK": 
KIO 33,%1,0,0,FILE$ 

1878 IF (CHGFLD-IDM1) OR (CHGFLD-IDM2) 
OR (CHGFLD-IDX3) THEN DEL=i 

1888 IF DEL=1 THEN POSITION 18,22:PRIN 
T ":FILESCLE-3,LEI=", 
IDK":KIO 33,H1,0,0,FILES 

1898 CLOSE Hi:FILES(CLE-3,LEI=".FMT":PO 
KE 764,255:60T0 88 

1188 REM 3X SET UP VARIABLES 

1118 PRINT CHR$(125);:DIM TTLSCSB8) : TTL 
$=" GLOBAL CHANGE PROGRAM " 

1128 DIM ANSRS (255) , FILES (C17) ,FLDNS (24 
8),LINSC48) , CHGFLDS (12) , FNCTS (48) , FLWA 
MS (17) , CRITS C38) , SRCHFLDS (12) 

1118 DIM CHGS$(C255),INPTS$ (255) , HS (1) , 5T 
YPES C2) ,FLD15 (255) ,FLD25 (255) , FN (28) 
1148 LIN$-'--------------------------- 
opo desc "iPRINT LINS$:4-8:B-5:C-2 

1158 RETURN 


CRAPS 


2168 FOR Iza TO YCOORD STEP YCOORD/YMA 
RKERS:PLOT 311, 1:DRAWTO KCOORD, I: NEXT 
I:REM RIGHT 

2188 FOR I-8 TO KCOORD STEP KCOORD/KMA 
RKERS:PLOT I,7:DRAMTO I,0:MEKT I:REM T 
oP 

2288 FOR I=@ TO KCOORD STEP KCOORD/ HMA 
RKERS:PLOT I,152:DRANTO I, YCOORD: NEXT 
I:REM BOTTOM 

2228 RETURN 

2188 DATA 17.95,17.65,17.72,17.56,17.8 
7,16.72,15.84,15.55,15.38,15,14. 32,15. 
$9,13.8,13.98,14.31,14.71,15.26,16.17 
2320 DATA 16.86,17.16,17.45,17.30,17.3 
8,17.06,17.12,17.12,17.12,17.23,17.34, 
17.46,17.32,17.38,17.34,17.087,17.04,16 
.62 

2148 DATA 16.38,15.88,15.45,14.99,14.7 
4,14.62,14.5,14.11,13.69,172.96,12.627,1 
2,01,12.84,11.85,11.55,11.92,161 

2168 DATA 16.86,16.96,16.76,16.5,15.78 
,15.62,14.67,14.27,14.2,13.98,13.37,13 
.27,13.29,13.54,13.83,14.09,15,16.04 
2188 DATA 16.79,16.75,17.16,17.45,17.1 
2,16.72,16.32,16.21,16.32,16.41,16.22, 
15.25,16.75,16.73,16.15,16.18,15.72,14 
18 

2488 DATA 14.25,13.05,13.47,13.61,13.7 
4,13.18,12.96,12.43,12.03,11.36, 18.89, 
18.62,18.82,18.42,18.62,10.36,181 


ACTION 
SUBROUTINES 


BYTE FUNC GESCCARD 51,52) 
BYTE TEMP 


J 
; RETURNS TRIECSFF) IF 51 <= 52 
; FALSECS88) OTHERWISE 

; 

; 51 I5 ADDRESS OF FIRST STRING 
; 52 IS ADDRESS OF SECOND STRING 


IF SCOMPARE (51,52))=8 THEN 
TEMP=SFF 
ELSE 
TEMP-$68 
FI 
RETURN (TEMP) 


PROC UPCASECCARD 482,21) 


; RETURNS THE STRING 51 THROUGH 52 
; CONVERTED TO UPPERCASE 


I 
; A1,42 ARE THE ADDRESSES OF 51,52 
; RESPECTIVELY 
BYTE ARRAY 51,52 
BYTE I 
51-81 
52-82 
52(8)-51(8) 
FOR I-1 TO 51(8) 
Do 
IF 'z2)-51(1) AND 51(I)>='a THEN 
52(1)-51(I)+('ñ-'a) 
ELSE 
§2 €13=51 (I) 
FI 
op 
RETURN 


BYTE FUNC INDEXCCARD A1,42) 


3 


: RETURNS THE POSITION OF STRING 52 
; IN 51, RETURNS 8 IF FAILURE 
; AL,AZ ADDRESS OF 51,52 RESPECTIUELY 
; 
BYTE ARRAY 51,52 
BYTE I,J, TEMP 
51-81 
52-982 
IF 51(8))-52(80) THEN 
FOR Izi TO 51(8)-52(80) t1 
po 
FOR J-1 TO 52(8) 
po 
IF 51(ItJ4-1)-52CJ4) THEN 
IF J-52(8) THEN 
RETURN CT 
FI 
ELSE 
EXIT 
FI 
op 
OD 
FI 
RETURN (8) 
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BYTE FUNC LESCCARD 51,52) 
BYTE TEMP 


; 
; RETURNS TRUECSFF) IF 51 (2:92 
; FALSE($00) OTHERWISE 


3 

; $1 IS ADDRESS OF FIRST STRING 
; S2 IS ADDRESS OF SECOND STRING 
i 


IF SCOMPARE (51,52) (=ë THEN 
TEMP-SFF 

ELSE 
TEMP-$88 

FI 

RETURM (TEMP) 


WALDEN 
SPEED TEST 


/* SPEED.C -test of function speed X/ 


tidefine SECONDS 8 /X* total number of 
seconds the program will run X/ 


testi $C 
/* place funtion here x/ 
51 


test20 3t 
/* place function here %*/ 
$) 


mainO 5( 
int seconds; 
char Xrepi,Xrep2; /% these will act 
like unsigned integers X/ 
seconds- CSECONDSX68) /2; 
for (repize,cirtime O ;gtime ( (seconds 
+trepi) testiO; 
for (rep2z8,cirtiwe 0 ;gtime © (seconds 
; ttrep2) test10; 
printfe"\ntesti = Xu repetitions\nte 
stz = Zu repetitions\n\n",repi,rep2) ; 
iftrepi)rep2) printf("testi is faste 
r than test2\n"}; 
else if(rep2)rep1) printf("test2 is 
faster than testixn"3; 
else printf("testi and test2 are the 
Same Nn"); 
$3 


w. 


BUMPAS REVIEWS 


My boss put an Atari 520 ST on my desk instead of the Wyse-50 
terminal | was using on his Alpha-Micro system. With a VT100 driver 
on the main system, and PC/Intercomm on my Atari l've got a terminal 
better than any in the office. Today my boss just told me he likes the 
Atari so much he's going to put it in his satellite office in Portland. Now 
l've got to wait again for another one on my desk! 


'NAM 


"NAM is a new game from SSI ($40) and the latest design of Roger 
Damon. You know him from Operation Whirlwind, Field of Fire, Panzer 
Grenadier. 

Are we still too close to the Vietnam War to enjoy it as a game? 
I think I might be. I wonder how many WW2-era vets enjoy wargaming 
WW 2? But there's a whole generation of people out there who may not 
know as much about the Vietnam War as do those of us who lived 
through the period. 

The game is very well executed. Line of sight rules are superior, and 
the play action is furious even though not in real time. Three levels of 
difficulty permit you to be smashed at your best, or to give yourself a 
fighting chance. 

Player control during a scenario is entirely by joystick. Here are some 
things you can do: You can move, fire and assault with helicopters (2 
basic types), tanks (2 types), infantry (10 types including ARVN, Police, 
Black Panthers, Marines, Paratroops, Rangers, Marines, Special Forces 
A-leams). There are also machine-gun, mortar, bazooka, recoilless rifle, 
artillery and truck units. Trucks and transport helicopters can carry 
infantry and support weapons. Use this flexibility in those scenarios 
where mobility is important. 

There are 6 scenarios with a good variety of settings. The manual 
provides good descriptions of your task and full-page situation maps of 
each scenario. Two of the most novel scenarios include an assault upon 
the city of Hue, and an operation to clear out underground tunnels. 
Mobility is important in both these scenarios since all enemy units must 
be eliminated and some of these are outside the city in the one scenario, 
and outside the tunnels in the other. 

A couple of the scenarios you may find mobility less important. 
You're more or less just sitting there in a fire base, or being ambushed 
on a road fighting off hordes of units. Your best bet might be to try to 
retreat a little bit to have more shooting room as they come towards you. 
Your performance in the battle is graded down severely for each unit you 
lose. So watch your unit strengths. When it gets down to 1 (or 2 or 3 
if heavily engaged), try to take them out of the front lines. You may find 
they will regain some strength again so you can throw them in later. 

As a game, this is excellent. Novices and old-hands alike will enjoy 
it. Especially if you can be thankful these are only electronic impulses 
you are destroying and not real people. 

We have a press release from JM-1 Products (Box 1621, Boynton 
Beach, FL 33425) regarding their Orator Speech Synthesizer Kit for use 
with all 8-bit Atari computers. The kit is $46 (plus $25 if you want them 
to assemble it for you). 

We have not seen the product, but they say the kit includes: pc 
board, speech chip with socket, amplifier chip with socket, assembly 
instructions, instructions for integrating speech into your programs, and 
a disk containing several demo programs. They say it uses the joystick 
ports and graphics, music and speech can all occur simultaneously (that's 
what they say!). 


VIP PROFESSIONAL 


VIP Professional (VIP Technologies, 132 Aero Camino, Santa 
Barbara, CA 93117, $122 discounted) tells you it's a "jazzed-up Lotus 
1-2-3" for your Atari 520 ST. The box, manual, and pre-release demos 
of this program all show full integration with the GEM interface. 
Unfortunately, the GEM interface version is not yet on the market. | have 
a letter from VIP, dated Jan. 9, 1986 in which they say to ignore the 
$20 coupon for the GEM update. The update will be given to all registered 
owners free of any charge. You see, a 512k system with TOS in RAM 
has insufficient memory to do much with this program. 

Until today, my review of this product could be encapsulated in three 
statements: No data; you can't print the data you have; and, it crashes 
your system. Today I got the patch to the bug which was preventing the 
user from printing out a worksheet. Happily | am now able to print a small 
worksheet | designed. 

Running up the program, | find | have only about a 33k data buffer 
with my system. Well, | said, that's better than the 21k | have in SynCalc 
on my 8-bit Atari. I've been keeping softball stats on my Atari since 1982. 
So I put my softball template into VIP. It's a 26x24 template with 7 
formulas repeated in 18 of the rows. It fits in my SynCalc with room for 
data for more than 20 players. In VIP, | ran out of room (memory!) with 
only about 16 or so players. So | conclude VIP uses more memory to 
store the same information SynCalc stores on an 8-bit system. 
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My recommendation (and, by the way, VIP's recommendation): 
Upgrade to 1-meg and/or put in the ROM chips. The ROM chips should 
be available by the time you read this. The documentation tells you you'll 
have more data space than a fully-configured IBM PC when you have 
the ROMs in or a 1-meg upgrade! 

Another item | miss from SynCalc is the ability to use formulas as 
long as 128 characters. With VIP, | am unable to use any formula longer 
than 80 characters. The cell will take more characters than that, but it 
appears to me the calculation will not include any expressions which 
are in the area of the formula beyond 80 characters. | couldn't find 
anything in the very well-done documentation which addresses the size 
of the formula which may be in any cell. 

How about the program itself? | used Lotus 1-2-3 for more than 2 
years on the IBM. The program is so similar, | was able to put in my 
softball template without even looking at the documentation. It seems 
to function nearly exactly like Lotus. The documentation claims "'the 
same books, magazines, templates and applications written for 1-2-3” 
will work on this program. That's pretty exciting stuff, since there is a 
lot out there to make 1-2-3 more valuable to the user. Enhancements 
of 1-2-3 include the use of the mouse and GEM interface (but not quite 
yet). The mouse feature is well implemented. When entering formulas, 
for instance, you can use the mouse to point to cells and the program 
automatically enters the cell address into the formula. Try that with your 
IBM! The manual claims it can use a giant 8192 row by 256 column 
template (about 4 times larger than the Lotus v.1.O maximum). The 
manual is excellent, with plenty of screen shots and examples. 
Unfortunately, much of it's applicable only to the GEM version, and not 
the text version which | have. 

There is one great bug, which VIP has already addressed. The print 
function fails to work as advertized on the first issue of the program. 
Printing produces no data. Contact your local dealer to get the fix. The 
Appendices include instructions on how to print graphs, a bibliography 
of Lotus materials, how to transfer worksheet files back and forth 
between Lotus and VIP, and a table of decimal ASCII codes. There is 
a 7-page index and the table of contents is quite complete. So you should 
be able to quickly go to any desired place in the 250-page manual. Also 
provided is an 8-page "Quick Reference Guide" which might save you 
a trip through the manual with a reminder of some function. 

There's one item | don't much care for. Whenever | exit the program 
| get a message from the program telling me to reboot the system. And 
| have to. Nothing works. The quit command on this program crashes 
the system! Hmmm. The program will only run when the disk is in drive 
A. Every time | try to run it from drive B, my system bombs out. 

As soon as | get my ROMs, or | upgrade to 1-meg, I'll be able to 
put this program to its full use. For now | can just dream. If you buy the 
program now, it will impel you towards the upgrade if the ROMs are not 
ready. If you wait until you free up the memory, you'll be very satisfied 
with this product. 


ELECTRO CALENDAR 


Electro Calendar (Soft Logik Corp., 4129 Old Baumgartner, St. 
Louis, MO 63129, $40) is a desk-top calendar for your Atari ST. The 
program is fully integrated into the GEM desktop, and Soft Logik promises 
to have a version available which can be installed as a "desktop 
accessory”. 

The screen displays a calendar which shows the current month, as 
well as the next month and the previous month. The mouse is used to 
select any month from a box containing the 12 months. You can also 
select the year desired. A box also permits resetting the current date 
and time. 

A memo can be created for any day desired. This is how you cause 
the current month's calendar to show highlighted dates. Memos can be 
saved to a particular date, or to the same day in all years, or to the 
"Clipboard". The clipboard option permits the file to be accessed by a 
word processor. You may also delete a memo. A search function permits 
you to find memos which contain a key word and which is present within 
a specified range of dates. The search function is case sensitive, so make 
sure you get your capital letters. 

You may also print a displayed memo, a displayed month's calendar, 
or a calendar of the entire year selected. A day is selected for 
“memorizing” by clicking the mouse on the day. If you get into the habit 
of running this program daily, the calendar will show all "memo dates" 
in a highlighted form. You'll never again be surprised by a deadline. One 
enhancement | can suggest, and when the program is made into a 
desktop accessory this will be feasible, is to incorporate an alarm. An 
alarm function could fix it so you don't have to run the program in order 
to avoid missing a deadline. The alarm could show a critical date coming 
up by displaying a message on the desktop to alert you to a memo which 
should be reviewed. Also included in the package is a "Personal Computer 
Diary '86". This is a little pocket paper diary in which you must make 
notes with pen or pencil (how old-fashioned!). 


You might notice they spell “Febuary” the way | like to spell it. But 
| don’t believe this indicates anything negative about the operation of 
the program. This is an excellent program which does everything it 
promises, and does it elegantly and well. | can recommend it now, and 
when it’s a desktop accessory it could be even more valuable. 


SOLITAIRE & 21 


Soft Logik also has a card-game disk for $20, allowing you to play 
solitaire and blackjack. This program is also integrated into the GEM 
desktop. Each game can be selected from a drop-down menu, and nearly 
all game functions are accomplished with the mouse. The games can 
be modified by a menu which requires some keyboard input: To set the 
level of the bet in blackjack (O to 999), or to set the number of cards 
drawn (from O to 9) in solitaire. 

The solitaire game plays very quickly. The cards are dealt out on 
the screen just as if some invisible hand were placing them on the table. 
The mouse drags the cards wherever you want to place them. | seem 
to be able to go through the deck only once, no matter how many cards 
| use in the draw. So the best bet is to use "1". The program permits 
you to move cards from one pile to the other. For instance if you have 
two red “5”s, you can move a black four back and forth between them. 
It'S very easy to win, because the program allows you to put any card 
you wish into an empty space. 

The blackjack game is a little slower if you must change the level 
of your bet often. The dealer wins ties, but the program “busts” the 
dealer, for instance, when it has a 4, a 5, a 2, and an Ace. Seems to 
me the Ace should not be taken as 11 in that case. But | needed the win. 

The graphics are very good, but the program doesn't control the 
color. If you've customized your desktop colors, you might find the card 
colors unsatisfactory. l've changed my desktop colors radically, and so 
my spades and clubs come out amber. 


1st WORD 


1st Word is a word processor which has been distributed free to 
purchasers of the Atari ST in England. It is now being distributed free 
for a limited time as a premium to purchasers in the States. | have heard 
people say the program is in the public domain. This is not true. The 
program is copyrighted and cannot be copied without prior written 
permission. Since Atari does not own the copyright, they will not be able 
to say (as they did with ST Writer), "we're retaining the copyright, but 
user groups may distribute it freely." If anyone copies and distributes 
1st Word, they will be in violation of the copyright holder's rights. 

This program is easier to use than ST Writer for someone who is 
relatively unfamiliar with computers or word processors. In most respects 
it is also a more powerful program. It seems to have one serious fault: 
| find myself unable to control the line spacing. The program only seems 
to produce single-spaced copy. | also have been unable to configure a 
printer driver for my SG-10 in spite of the provision in the program for 
generating such a driver. | even found a “Gemini” driver on CompuServe. 
No help. | still can't italicize, do bold or double-wide printing. Superscripts 
and subscripts are also denied me. Either | have missed something in 
the instructions, or the method described for generating the driver does 
not function properly. When | print a document, my printer feeds a full 
page before it begins to print. | don't know if this is a problem with the 
program, or a result of my inability to generate a proper driver. A final 
problem l've found is that l've been unable to use this program to edit 
an ST Writer file, although ST Writer will edit 1st Word files. 

With those problems out of the way, let me say | think this program 
is an excellent word processor. The best for all-around use l've yet seen 
for the ST. It's fully integrated into the GEM Desktop: All your accessories 
are available, as well as the program's own menu selections across the 
top of the screen. The bottom of the screen displays the functions of 
the F1-F10 keys. You can either type the key desired, or use the mouse. 

All text input functions are designed to permit you to keep your 
fingers on the qwerty area of the keyboard at all times. The mouse can 
be used for most editing functions (reformatting, block operations, 
scrolling through the document, searching and replacing, etc.). 

Cursor movement can be by character or word using the arrow keys 
and the Control key. You can move by page, or to the top or end of the 
document with the mouse on the slide bars at the right and bottom of 
the editing window. You can set up to four marks in your text and go 
quickly to those marks. 

The column at the left of the editing window shows page breaks. 
There are conditional, soft and hard page breaks. You use the mouse 
to control these most easily. 

Block operations are marvelous. You can have up to 4 editing 
windows open at once (yes, this means up to 4 separate documents!). 
You can paste, move and copy blocks to any window. Blocks are marked 
with the mouse. And the program will find the start or end of any marked 
block no matter how long. You can even write a block to a separate disk 
file. 


And now for a real kicker. You can type onto the screen in at least 
5 fonts. Bold, underline, italic, and light printing all appear on the screen 
in addition to the normal font. No control characters messing up your 
text. You see what you get! The paragraphs are formatted as you type. 
If you later go back and add or delete something, press F10 and the 
paragraph is reformatted. Press F8 and the text on a line is centered. 
You want the text of numbered paragraphs to be indented to the right 
of each paragraph's number? Use F9 after the paragraph number and 
the remaining lines of the paragraph are aligned on that column. Right 
justification is also shown on the screen. 

You can toggle the "WP" line on the Edit menu. This permits you 
to create a pure ASCII file with no formatting information. You can also 
toggle word wrap on and off. You can size and drag windows wherever 
you want. Want to put characters in your text which are not available 
from the keyboard? The program has a box with the entire ST character 
set in it. Just click the mouse on a character and it prints at the cursor 
location. You'll probably have to do a screen dump to reproduce the 
character with your printer. 

If you can get your hands on this program, | believe you'll be using 
it for most of your word processing. | think Atari will be selling the 
program, but | don't know the price. 

DEGAS ($40, Batteries Included) is in the hands of a commercial 
artist with decades of experience in the industry. We will shortly have 
a review of this product after testing by a professional. 


S Tuff 


Been waiting to get an ST until the ROMs are ready and you can 
upgrade to 1-meg? Well, Atari is making your choices more enticing. A 
friend of mine here in Eugene called me and said the 520 ST he just 
bought has the ROMs installed! And Atari is now selling the 1040 ST. 
A 1-meg machine with internal 1-meg disk drive and monitor: $999 for 
monochrome; $1199 for color. 

The 20-meg hard disk is selling to developers for $699. It should 
also be available to the rest of us by March. Atari is still planning to sell 
their expansion box. It plugs into the DMA port and has 8 slots. This 
is where memory expansion will go, the IBM hardware emulator (3d party, 
not Atari), and other goodies. Basic is here fo: the ST. You should have 
received yours by the time you read this. From the list of commands it 
has available it should be one of the most powerful Basics around. Its 
best feature, though, will probably be to stimulate 3d party software 
developers to sell a better product. At least as a freebie it doesn't cost 
too much (some might argue with me). 

Don E. in the Dec. 1985 Puget Sound Atari News reports his 
measurement of disk access speed for the ST. He used the desktop disk 
duplication utility, which includes verification of the writes. It took 39 
seconds accessing the input disk and 71 seconds for the output disk. 
If the no verify option was used, the output disk could be closer in time 
to the input disk. 

The January 1986 HiSug (Sparks, NV), in an article copyrighted by 
Maurice Molyneaux, reports a couple of interesting items. He says he 
used the Hippo Disk Utilities to examine the code contained in his 
Desktop Control Panel. He discovered the defaults for the Panel's time 
and date on the 11th line of Page 42. In Ascii, the data shows as “533P. 
52985". He changed it to read his birthdate. | second his advice: Perform 
this little trick only upon a copy! 

He also says if you install a disk drive and type a lower-case “c” 
for the drive identifier the new “disk” icon will open a window to the 
cartridge slot! | tested this one, and the window does say “Cartridge”! 
An upper-case “C” only produces a drive C:. | wonder what we can do 
with this information? Give us a cartridge to find out. 


ST Library Additions 


Animation Demo (parrot flies across several screens); 

Terminal programs (pre-release STalk and a public domain terminal); 

From the Portland Atari Club, C source-code for accessing the time 
and date functions and some other utilities. 

A disk sector editing utility. 

A sound and picture demo which can play through the MIDI or use 
the ST sound chip. It's from Audio Light but it's protected. So we can 
only show it. Seems a bit short-sighted to protect a demo disk. If you 
want to run the show, there's an unprotected version on CompuServe. 

A Piano Keyboard program using the ST's sound chip. This is a fun 
one. It's an advertizement for a $40 product from Intersect Software. 

For you monochrome users, we also have a very good desktop 
accessory called '"BICALC". You can now bring up a calculator which 
performs calculations in both hex and decimal. It even has a “b” key 
which seems to translate the number into binary! This is a VERY useful 
item. 
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A demo disk from Audio Light, Inc. similar to the DEGAS and NEO 
slideshow programs we've seen. This one plays a different song 
simultaneously with the display of each picture. And they sell both a 
drawing program and a music editing program. The sound will play either 
with your ST's sound chip, or through the MIDI interface to a synthesizer! 

Insoft, Corp. (1834 Beacon St, ste 1, Brookline, MA 02146) sends 
us their January, 1986 magazine on a disk: "Enclosed is our January issue 
of our Magazine on a disk. This disk may be freely copied or distributed 
in any way you see fit. All we ask is that we are referenced as the 
providers of this information. Thank you, Mark Allen” The current issue 
has interesting news and rumors. It also contains several source, C, .doc, 
and .prg files which you may find interesting. | find the programs which 
allow the user to manipulate the ST's sound registers very interesting. 

We now have a library list of some 3 pages. If you want a copy of 
the list, send $0.50 plus whatever postage you want me to use over 22 
cents. The disks are $10 each for single-sided; $15 for double-sided (I 
put 2 disks on the double-sided disk). 


S T-Talk 


ST-Talk (Version 1.0, Quantum Microsystems, Inc., P.O. Box 179, 
Liverpool, NY 13088, $17.95) is an inexpensive telecommunications 
package which is designed to turn your 520ST into an intellegent 
terminal. This happened to be the first program | purchased for my ST, 
knowing that bulletin boards around the country provide a wealth of 
public domain software. 

The program itself is packed with features, and fairly straightforward 
to use. You have the ability to receive and send files with XMODEM 
protocol. It also allows you to upload and capture text files. 

Using ST-Talk is a fairly easy affair, and can be done without even 
reading the two pages of documentation. Unfortunately the program 
does not have any of the GEM hooks so everything is done with menus. 
After double-clicking STTALK.PRG you are presented with a title screen. 
This screen asks for input of the date and time, and as soon as the last 
digit is entered you are in the main part of the program. 

The main screen consists of one line containing the time, program 
title and baud rate. The second line is a combination status/input line 
and it also displays the translation type. Then there are 21 lines of 
terminal display. and finally the last two lines contain the company name 
and the "HELP" and "UNDO" key functions. 

Function keys are used for most of the program parameters. F1 
toggles capture on and off. F2 is used to upload text. F3 allows you to 
receive a file with XMODEM. F4 sends an XMODEM file. F5 will set the 
baud rate from 300 to 9600 baud. F6 resets the clock to whatever time 
you choose. F7 clears the screen and gives you a dialing menu. F8 allows 
you to dial by tone or pulses on a Hayes compatible smartmodem. F9 
selects between ASCII/VT52 or ATASCII/XE modes. And finally F10 
provides information on the program and the version number. 

Version 1.0 seems to have a few bugs. Automatic dialing on my 
Qubie modem just doesn't seem to function right, which means putting 
in the command sequence manually. Occasionally on XMODEM 
downloads the program locks up after trying to receive a block 9 times. 
And in the dialing menu you only have room for 26 numbers, with each 
number represented by a different letter of the alphabet. If you need to 
edit the phone numbers, this is done by pessing the ALT - the letter 
you want. But you can only edit one number at a time and you are 
automatically returned to the main screen. And if you look at the back 
of the package you see some commands that do not even exist. OMI 
says that ALT + W puts you in a type ahead window and that ALT + 
U will allow the use of macros. Neither of these functions were present 
in this version. OMI has already released Version 1.2 but the upgrade 
is not free. The cost is $2.00 for shipping and you have to send them 
the old disk. 

The ATASCII/XE mode allows the use of inverse video in both sent 
and received texts. You can even send an ASCII carriage return in this 
mode with the ALT + M key combination. 

If you want a powerful communications package and one free from 
bugs buy PC/InterComm. But if you are just fooling around with 
telecommunications or don't need all those fancy terminal emulators, 
then ST Talk might be for you. Besides $17.95 is a little easier to swallow 
than $125.00 for PC/InterComm. By the time you read this | should have 
my updated copy, and if there are significant changes I'll report them 
here. If not, at least It should be bug-free. 

ST-Talk is available at Computer Palace or direct from the author. 

— Buddy Hammerton 
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GRADESCAN 


GRADESCAN may well be the answer to the teacher with an 8-bit 
Atari computer. Having reviewed several "grade books" for the Atari, 
GRADESCAN is the first available which allows ease of use near that 
of the traditional grade book. 

After booting the program, a menu appears which instructs you to 
insert a GRADESCAN data disk. Menu options include: 1. Retrieve Data 
from Disk; 2. Create New Class; 3. Enter Grades; 4. Examine Averages; 
5. Examine Grades; 6. Examine Class; 7. Correct or Revise Records; 8. 
Add or Delete Student??print class averages, plus print out a class roster 
complete with squares to create your own paper and pencil grade book 
or for notations of your choice. 

Entering grades is a snap. You enter the class you wish to work with, 
enter the number of grades you wish to enter, the new assignment 
names, and the student names automatically scroll to screen as you enter 
the grades. Most other functions are nearly as neat. The only function 
which could be simplified is the Correct or Revise Records option. You 
are asked for several responses to revise more than one grade. It seems 
these steps could be simplified by making a RETURN response continue 
the same function, and make a NO response apply when you wish to 
go to a new student, or a new option. 

Without any modifications, GRADESCAN is still the best Atari grade 
book of the three | have used. It takes about the same amount of time 
to enter grades that it usually takes to calculate grades, but now you 
can print out grades and reports without duplicating the same 
information time after time. GRADESCAN is available from: 
GRADESCAN, 1722 Golden Court, Crofton, MD 21114. 

— W. Ray Quick 
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Our membership is world wide. Membership fees include the A.C.E. 
newsletter (10 issues per year) and high access in the A.C.E. Bulletin 
Board System. Dues are $14 a year for U.S., and $24 a year overseas 
airmail. ; 

Subscription Dept.: 3662 Vine Maple Dr., Eugene, OR 97405 
President — Dick Barkley, 2907 Wingate, Eugene, OR 97405 
(503) 344-5843 

Vice President — Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
(503) 686-2490 

8-Bit Librarian — Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 
(503) 343-5545 

ST Librarian — Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 
' (503) 484-4746 

Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
(503) 344-6193 

Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 

(503) 484-4746 

Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

(503) 686-1490 

E.R.A.C.E (Education SIG Editor) — Nora Young, 105 Hansen Lane 
Eugene, OR 97404 / (503) 688-1458 

Send 50c stamps or coin ($1 overseas) to the Librarian for updated 
ACE Library lists. 

A.C.E. Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of a 130 XE upgraded to 576k by Charlie Andrews, 2 double-density 
ramdisks, 2 double-density disk drives, and a 10-meg hard disk from 
Supra Corp, an Epson MX80 printer, a 2400 US Robotics Courier modem, 
running the Mindlink Bulletin Board software (modified). 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the 
first issue, Oct. 1981 to June, 1982. 

Volume 2 contains July 1982 through June 1983. 

Only $12 each ($2 extra for airmail). Available only from George 
Suetsugu, 45-602 Apuapu St., Kanoehe, HI 96744. 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line? 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


edhing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
SortFinder Index 
f A composite index of Atari related articles in four popular computer 
periodicals, including the ACE Newsletter. Volume 1 covers April, 1981 
through June, 1983. Volume 2 covers July, 1983 through December, 
1985. Only $6 per printed copy or $11 per disk copy for ACE members. 
Available from: Jim Carr, 2660 S.W. DeArmond, Corvallis, OR 97333. 





